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RAFiC©: 



Q QUE E UM DESENHO 
TlPO WIREFRAME? 




Neste primeiro artigo da sirie sobre 
desenho tipo wireframe, vocS 
aprender^ a elaborar grades e cfrculos. 
Mais tarde, verd como utilizi-los 
para estruturar imagens em 3-D. 



-DO) 



COMO ORGANIZAR AS ROTINAS 
DESENHE UMA GRADE 



DESENHE UM CIRCULO 



















^^^^^^H' 




^^^^^^^K 





Desenhos Iridimensionais em movi- 
mento, do tipo wireframe {ou gradea- 
do), tern se tornado imagens comiins em 
propagandas e, sem diivida, impressio- 
nam muito. O efeito e uma das mais re- 
centes contribui?6es do computador &s 
comunicacoes visuais. Se, como usuario 
de um micro pessoal, voce quiser pro- 
duzir figuras como aquelas, cerlamente 
ficara desapontado ao veriftcar que e 
impossivel obter o esplendor das ima- 
gens elaboradas por computadores, ar- 
tistas e tecnicos fotograficos nos comer- 
ciais de televisio. 

Mas nem tudo est^ perdido: nesta se- 
rie de artigos, voce vera como extrair o 
maximo de seu computador, capacitan- 
do-o a produzir e movimentar imagens 
em 3-D de uma maneira que ate en- 
genhejros-desenhistas invejariara. 

Como vimos em artigos anteriores, a 
possibiJidade de enderegar pontes indi- 
viduais (pixels) na tela proporciona ao 
micro uma poderosa ferramenta de de- 
senho. O TK-90X, por exemplo, tern 
256 pixels na horizontal e 176 na verti- 
cal. Normaimqnte, desenhamos Unlias 
reias ou pontes que, combinados com 
recursos de cor, sao usados para produ- 
zir imagens de alta resolu?ao. 

O metodo empregado para desenhar 
linlias em sistemas graficos controlados 
por computador e, em geral, semelhan- 
te ao utiiizado quando se trabatha com 
caneta e papcl. Podemos mover o cur- 
sor pela tela fazendo com que ele deixe 
marcas ou nao, e mudar de cor i tao 
simples quanto trocar de canela. 

A principal diferen^a entre desenhar 
com o computador ou manualmente es- 
lA na rapidez da maquina e na perfei- 
fao com que ela traga linhas retas. Es- 
tas caracteristicas tornam possivel dese- 
nhar imagens em seus contornos ou 
mesmo wireframes tridimensionais. 
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QUE E. AFINAL, UM WIREFRAME' 



Wireframes sSo representa?6es ima- 
gindrias formadas por grades de linhas 
sobre a superficie do objeto. Geralmen- 
te. neste tipo de desenKo, as linhas de 
fundo do objeto tambera ficam aparen- 
tes, pois, para esconde-las, precisaria- 
mos de muitos calculos extras. O resul- 
tado 6 uma figura que parece feita so- 
mente de uma arma9aQ de arame. 



Os wireframes podem ser movimen- 
tados ou rodados, como vemos em di- 
versas propagandas. Nos micros pes- 
soais, nao se con segue a mesma rapidez. 
Para alcangar velocidade semelhante, 
precisariamos que os quadros mudassem 
pelo menos a cada 1/25 de segundo. Na 
verdade, a maioria dos computadores 
usados nos comerciais de TV tambem 
nao sao tao rdpidos assim, mas as ima- 
gens parecem estar em "tempo real" 
gragas a t^cnicas de fiimagem. 



Em desenhos estatlcos, o tempo nao 
6 importanie, embora cause irritapao eS' 
perar demais ate que uma figura se com- 
plete, Mas, por outro lado, muitas ve- 
zes e mais interessante ver a figura sen- 
do desenhada do que ve-la acabada, so- 
bretudo se ela for bem complexa. 

Come?aremos desenhando formas 
simples^ como cubo ou esfera; a medi- 
da que nos familiarizarmos com as tec- 
nicas do wireframe, tentaremos formas 
mais complicadas. Neste artigo, apren- 




deremos a criar figuras bidimensionais 
que parecerao estar em espafo tridimen- 
sional. Infelizmente, as rotinas aqui 
apresentadas nao servem para os micros 
das linhas ZX-81 e TRS-80. 



PRfMEIROS PASSOS 



A execui;ao dc um desenho comple- 
xo do tipo wireframe e bem demorada, 
independentemente da velocidade ou da 



capacidade de tra^ar tin has de um mi- 
cro. Os primeiros passes consistem na in- 
corporai^ao de um conjunto de rotinas, 
que inctuem os comandos graficos b^- 
sicos. Precisamos de um comando que 
mova cursor sem desenhar e outro que 
o movimente desenhando. Esles coman- 
dos variam de mdquina para m^quina, 
como 6 o caso do MOVE, DRAW e LI- 
NE, }A vistos em outros artigos. 

Um programa grafico geralmente co- 
mega ajustando o computador para o 
modo grdfico, se necessirio, e limpan- 
do a tela. Devemos optar sempre pela 
resolugao de tela mais alta. Convem ain- 
da estruturar o programa de modo que 
todos OS comandos grificos sejam co- 
letados juntos em sub-rotinas. Com es- 
sa medida, evitaremos reescrever desne- 
cessariamente porgoes de programa que 
realizam a mesma tare fa. Al^m disso, 
tartto a expansao quanto o entendimen- 
to do programa serao mais simples se os 
comandos que realizam certa tarefa fo- 
rem coletados numa mesma area. A es- 
truturacao de um programa deixa-o, de 
fato, um pouco lento; isso, porem, nao 
tern maior imporiancia quando lidamos 
com figuras estiticas. 



INICIALIZACAO DA MAQUINA 



Para come?ar o trabalho com as ro- 
tinas de desenho, digite esta parte do 
programa, mas n^o a rode ainda pois es- 
td incompleu. 



f>^ 



9000 CLS 
9030 RETURN 

Os programas do TRS-Color e MSX 
sao mais curios porque esses computa- 
dores permitem que movimentemos o 
cursor e desenhemos usando um simples 
comando. Os programas do Spectrum 
e do Apple, por sua vez, comem sub- 
rotinas que movimentam o cursor sem 
desenhar (linhas 9100 a 9120) e que de- 
senham na tela (linhas 9200 a 9220). Es- 
sas rotinas combinadas formam uma 
unica rotina de movimento e desenho. 

Agora, para fazer um desenho, nao 
precisaremos dizer ao computador co- 
mo mover o cursor ou marcar a tela: 
bastard definir a forma do objeto nos 
termos dessas rotinas basicas. 



DESENHO DE LINHAS 



A forma mais simples que um dese- 
nho pode assumir e, sem diivida algu- 
ma, a de uma linha. Aqui esti a rotina 
que faz isso; digite-a, mas nao rode o 
programa ainda. 



aiE] 



HIE] 



9500 REM LIMHA 

9510 XI = XSrYl = YS : GOSUB 910 



9520 X2 - XE:Y2 - YE: GOSUB 920 



95S0 RETUHN 



9000 


REM imcio 


^L« 




9005 
9010 


PI = 4 * ATN (1) 
HGR2 : HCOLOH- 3:N • 


9500 
9550 


LINECXS,YS)-(XE,YE) , PSET 
RETURN 


9070 


RETURN 






9100 


REM MOVE 


5 




9110 


HPLOT XI. Yl 




9120 


RETURN 


950O 


REM LINHA 


9200 


REM DESENHA 


9510 


LET X-XS: LET Y-YS : GOSUB 


9210 


HPLOT XI, Yl TO X2,Y2 


9100 




9220 


RETUHN 


9520 


LET X-XE: LET X-YE: GOSUB 


kM 




9200 
9550 


HETUfiN 


9000 


PCLS 


r^ 




9030 


RETURN 








9500 


LINECXS,YS)-(XE,YE> , 15 


^= 




9550 


RETURN 



9000 REM INICIO 

9010 BORDER 4: PAPER 7: INK 0: 

CLS : LET N-0 

9070 RETURN 

9100 REM MOVE 

9110 PLOT x.y 

9120 RETURN 

9200 REM t)E£;ENHA 

9210 DRAW X-PEEK 2,1677 , Y-PEEK 2 

.1678 

9220 RETURN 



A rotina especifica uma posi^ao ini- 
cial — coordenadas (XS, YS) — e uma 
posiifao final — coordenadas (XE, YE) 
— para a linha. Etq alguns computado- 
res e necessario utilizar os comandos 
DRAW ou LINE; em outros, isto ja es- 
t^ especificado nas rotinas das linhas 
9100 a 9220. A rotina que desenha linhas 
d a base da maioria dos programas do 
tipo wireframe. 



OESENHO DA GRADE 



Para representar uma superficie e 
qualquer irregularidade que possa ter — 
como morros, vales, fendas eic. — € me- 
Ihor visua!iza-la nao como uma drea 
coniinua deniro de um retangulo, mas 
como uma grade de lirvhas horizontals 
e verticais. Assim, todas as irregularida- 
des poderao ser representadas por dis- 
tor?6es dessas linhas. 

A proxima segao do programa defi- 
ne a rotina que desenha uma grade. 
Digite-a, mas nao a rode. 



5130 RETURN 



HIE] 



5000 


JA = LW / NX 


5010 


XS - XA 


50 20 


FOB J - TO NX 


5025 


YS - yA:XE - XSiYE - YA 


LH 




5030 


GOSUB 9500 


5040 


XS = XS + JA 


5050 


NEXT J 


5060 


JA - LK / NY 


5070 


YS ' YA + LH 


5080 


FOH J - TO NY 


5090 


XS " XA + LW:)CE - XA:YE 


YS 




5100 


GOSUB 9S00 


5110 


YS - YS - JA 


5120 


NEXT J 


5130 


RETURN 


u 




5000 


JA-LW/NX 


5010 


XS-XA 


5020 


fOR JB-0 TO NX 


5025 


YS-YA : XE-XS r YE-YA+LH 


5030 


GOSUB 9500 


5040 


XS-XS+JA 


5050 


NEXT JB 


5060 


JA-LH/NY 


5070 


Y3-YA+LH 


5080 


FOH JB-0 TO NY 


5090 


XS-XA+LW : XE-XA: YE-YS 


5100 


GOSUB 9500 


5110 


YS-YS-JA 


5120 


NEXT JB 


5130 


RETURN 



Jd 



5000 LET JA=LU/NX 

5010 LET XS=XA 

5020 FOR J=0 TO NX 

5025 LET YS-YA: LET XE-XS: LET 

YE = YA+t.H 

5030 GOSUB 9500 

5040 LET XS-XS+JA 

5050 NEXT J 

5060 LET JA-LH/NY 

5070 LET YS-YA+LH 

5080 FOR J-0 TO NY 

5090 LET XS-XA+LW: LET XE-XA: I 

ET YE=YS 

5100 GOSUB 9500 

5110 LET YS-YS-JA 

5120 NEXT J 



fifi 



5000 JA=LW/NX 

5010 XS-XA 

5020 FOR JB-0 TO NX 

5025 YS=YA: XE-XS rYE=YA+LH 

5030 GOSUB 9500 

5040 XS=XS+JA 

5050 NEXT JB 

5060 JA=LH/NY 

50 70 YS=YA+LH 

5080 FOB JB=0 TO NY 

5090 XS=XA+LW:XE=XA:YE-YS 

5] 00 GOSUB 9500 

5110 YS=YS-JA 

5120 NEXT JB 

5130 RETURN 

As coordenadas (XA,YB) especifi- 
cam canto inferior esquerdo da gra- 
de. LW especifica a largura; LH, a al- 
tura; NX, o mimero de divisoes horizon- 
tals, e NY, numero de divisoes verti- 
cais. A variavel JA determina a distan- 
cia entre as linhas verticais, e o laijo 
FOR. ..NEXT desenha horizontals, 
mantendo aquele intervaio. O segundo 
laco FOR. ..NEXT desenha verticais a 
intervalos calculados pela linha 5060. 

A rotina entre as linhas 5000 e 5180 
desenha as linhas horizontais da esquer- 
da para a direita, e as verticais de baixo 
para cima. formando uma grade de su- 
perficie plana. Nao poderiamos, portan- 
to, representar irrcgularidades na super- 
ficie dessa grade. 

Para mostra-la na tela, digite as li- 
nhas seguintes, que chamam a rotina, e 
rode o programa. 

100 GOSUB 9000 

175 XA - 0:YA » : LW - 2/9:LH - 

191:NX - 16:HY - 14 
160 GOSUB 5000 
190 STOP 

D 

10 PMODE 4: SCREEN 1,1 

105 PI-4''ATN(1) 

110 GOSUB 9000 

175 XA-0:YA-0;LM-255:LH-191:NX- 

4:NY-3 

180 GOSUB 5000 

190 GOTO 190 



100 GOSUB 9000 

175 LET XA-0: LET YA-0; LET LW 

-255; LET LH=175: LET NX=16: 

LET NY-12 

180 GOSUB 5000 

190 STOP 



fm 



105 PI''4*ATN(1} 

110 GOSUB 9000 

175 XA=0:YA=0:LW=255:LH-191:NX= 

4:NY=3 

180 GOSUB 500 

190 GOTO 190 

Ao rodar o programa, aparecerd uma 
grade ocupando toda a tela. Faga as mu- 
danpas abaixo para observar a versati- 
lidade do programa; 



[HE] 



175 XA - 10;yA = .1.0 :LW = 240 :LH 
= 144: NX = 1 :NY = 1 

Q 

175 XA-10:yA-10:LW-240:LH-l60:N 
X-1:NY-1 



175 LET XA=10! LET YA=10: LET 
LW=240: LET LH=144: LET NX=1: 
LET NY=1 



m 



175 XA=10:YA-10:LW=240:LH=160:N 
X=1:NY=10K 

Desta vez, aparece na tela uma caixa 
retangular, ja que se especificou uma 
grade com apenas uma divisao horizon- 
tal e uma vertical. Fornecendo valores 
adequados a NX e NY, como acima, po- 
demos construir uma grade com nume- 
ros de linhas horizontais diferente do de 
verticais. Faga as mudangas que se se- 
guem e rode o programa: 



[i]E] 

175 XA - 
130: NX 

D 



0:YA =* 0:LW 
-- 16: NY - 16 



= 180 :LH 



175 XA-0:YA-31:LW-160;LH-160:NX 
-15:NY-10 



175 LET XA=0: LET YA=0 : LET LU 
=160: LET LH=144: LET NX=15: 
LET NY-10 



m 



100 SCREEN 2: COLOR 1,9.10 



175 XA-0:YA=31:LW'160:LH=160:NX 
-15:NY=10 

Para a forma quadrada, determina- 
mos OS valores apropriados de LW e LH 
e o mimero de divisoes por NX e NY. 



DESENHO DE CIRCULOS 



Os circulos lamb^m sao muito liteis 
nos desenhos tipo wireframe. Em alguns 



i 
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micros, eles podem ser executados dire- 
tamente por um comando, bastando que 
se definam o centro e o raio. 

O comando direto, contudo, nao nos 
oferece o grau de controle necessdrio pa- 
ra a elabora^ao de um desenho tridimen- 
sionaJ, Em perspectiva, um circulo vis- 
to de um certo angulo pode parecer uma 
elipse ou ate uma curva. Em bora dese- 
nhe elipses, o comando CIRCLE nao e 
capaz de Ihes conferir a tridimensiona- 
lidade essencial para garantir a aparen- 
cLa realistica ao objeto. Convem, por- 
tanto, definir uma fungao generica. 

Podemos compor um circulo usando 
uma serie de segmentos de reta. Se es- 
tcs forem suficientemente pequenos, a 
curva parecerA continua. Mas, quanto 
menores forem os segmemos de reta, 
maior sera o niimero deles e mais pro- 
longado o tempo de execugao. Aqui es- 
ta uma rotina que desenha um circulo 
de raio R com centro em (XS, YS). 
Digite-a, mas nao a rode ainda. 



HIEI 



6000 IF N = THEN N = 20 + I 

NT (H / 10) 

6020 JA = 2 « PI / N 

6050 XH - XS:YR = YS 

6060 JB - 0:XS = XS + H 

6070 FOR J = 2 TO N 

608Q JB -= JB + JA 

6090 XE = XR + ft * COS CJB):VE 

» 5fR + a * SIN (JS) : GOSUB 95 
00 

6100 XS = XE:YS = YE 
6110 NEXT J 
6120 XE ■= XB + R:YE = YR: GOSUB 

9500 
6130 XS - XR:YS = YH 
6160 RETURN 

D 

6000 IF N-0 THEN N-20+INT tR/10) 

6020 JA-2"PI/N 

6050 XH=XSrYR-YS 

6060 JB-0;XS-XS+fl 

6070 FOR JC-2 TO N 

6080 JB=JB+JA 

6090 XE-XR+R*COS(JB) :YE-Ya+R*SI 

N(JB) rGOSUB 9500 

6100 XS-XE:YS=YE 

6110 NEXT JC 

6120 XE-XR+R:YE-yB; GOSUB 9500 

6130 XS-XR:YS-YR 

6160 RETURN 



6000 IF N=0 THEN LET N=20+1NT 

(R/IO) 

6020 LET JA=2*PI/N 

6050 LET XR»XS: LET YR^YS 

6060 LET JB=0: LET XS-XS+H 

6070 FOR J=2 TO N 

6080 LET JB-.JB+JA 

6090 LET XE-XR+R*COS JB : LET YE 



=YR+R*SIN JB: GOSUB 9500 

6100 LET XS=XE: LET YS^YE 

6110 NEXT J 

6120 LET XE=XR+R: LET YE=YB : GO 

5!IJB gsoo 

6130 LET XS=XR: LET YS=YB 

6160 RETURN 



m 



6000 IF N=0 THEN N-20+1NT {R/IOJ 

6020 JA-2*PI/N 

60B0 XR=XS:YR=YS 

6060 JB=0:XS=XS+R 

6070 FOB JC-2 TO N 

6080 JB=JB+JA 

6090 XE=XR+R*COS (JB) :YE-YR+R*SI 

N(JB) :GOgUB 9500 

6100 XS=XE:yS-YE 

6110 NEXT JC 

6120 XE-XR+P:YE=YR:GOSUB 9500 

6130 XS=XB:YS=YR 

6160 RETURN 

A variavel N especifica o niimero de 
segmentos de reta que serao usados na 
composi?ao do circulo. Caso fa^amos 
N =0, a linha 6000calcu!ard o niimero 
de segmentos necessaries para fazer o 
circulo mais liso, levando em conta, e 
claro, o tamanho dele. 

A linha 6020 calcula o angulo de 
cada segmento de reta na circunferen- 
cia. A linha 6050 move o cursor para 
uma posi^ao na circunferencia, O lago 
FOR. ..NEXT tra*;a todos os segmentos, 
com excegao do ultimo, que e desenlia- 
do pela linha 6120, para garantir que se 
una ao primeiro. 

Para ver a rotina funcionando, apa- 
gue a linha 180 e acrescente estas; 



QBE] 



ISO FOR H - 20 TO 70 STEP 10 
155 XS = 128:Y3 ■= 102rN •= 24 
160 GOSUB 6000 
170 NEXT R 






150 FOR H-0 TO 100 STEP 20 
155 XS=12B;YS-102:N»24 
160 GOSUB 6000 
170 NEXT H 



150 FOB B=20 TO 70 STEP 10 

155 LET XS=128: LET Y;1 = 102: 

LET N=--24 

J 60 GOSUB 60 00 

170 NEXT R 



m 



150 FOR R=0 TO 100 STEP 20 

155 XS=128rYS=102;N=24 

160 GOSUB 60 00 

170 NEXT a 




Posso colorir wireframes? 

Desenhos do tipo wireframe geral- 
mente sao apresentados em duas co- 
res, sobretudo preto e branco. 

A preseng:a de muitas cores tende 
a complicar a imagem, muitas vezes 
anulando o efeito tridimensional. AI6m 
disso, a adicao de cores a um desenho 
complexo esbarra em limitacoes da 
pr6prta m^quina. 

No TRS-Color, o maior numero de 
cores sacrifrca a alta resolucao grifica. 
pois a resolucao se reduz k metade 
quando passamos de um modo de duas 
cores para um de quatro. 

No Spectrum e no MSX, determina- 
das porcSes da tela s6 podem apresen- 
tar duas cores. No Spectrum, esta por- 
Qso corresponde a cada bloco de oito 
por oito pontos da tela; no MSX, a ca- 
da conjunto de oito pontos adjacentes 
na horizontal. 

J^ no Apple e no TK-2000, atgumas 
cores ocupam colunas pares, outras 
I'mpares, em alta resolupao. Se colocar- 
mos pontos ou linhas em colunas Ina- 
dequadas S sua cor, efes simplesmen- 
te nao aparecerao na tela. 



Rodado o programa, um cerro niime- 
ro de circulos aparecera no centro da te- 
la. Como na rotina da grade, podemos 
variar os parSmetros no programa que 
chama a rotina e obter uma disposiipao 
de circulos diferente. A linha J 50 ajus- 
ta o rate do primeiro circulo e determi- 
na o quanto ele aumenta. A 155 define 
o centro do circulo e o numero de seg- 
mentos de reta que formarao a circun- 
ferencia. Como exercicio, varie esses va- 
lores e vcja os result ados. 

Talvez voce queira saber o que acon- 
teceu com a rot ina da grade: ela ainda es- 
ta na memoria, mas, como reescrevemos 
as linhas de codigo que chamam a roti- 
na, o computador nao as mostra. Reti- 
nas como esta podem ser guardadas num 
arquivo de retinas grdficas para uso pos- 
terior. Elas terao utilidade em varies ti- 
pos de programa grafico, bem como nos 
de wireframes. Na medida em que for pre- 
ciso, adicione novas rotinas. Uma vez no 
computador, salve-as em casseteou dis 
CO e carregue-as novamente na membria 
quando for utiliza-Ias. Junte-as, se neces- 
sirio. No proximo artigo desta serie, ve- 
remos como usar essas rotinas na cria^ao 
de wireframes tridimensionais. 
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UM EDITOR 
DE TEXTOS (2) 



Adicionar, corrigir, apagar, tudo 
i possivel com um programa editor. 
Portanto, se voce quer obter um 
texto p«rfetto, comece com um 
rascunho e melhore-o a vontade. 



Neste artigo, voce encontrara a par- 
te principal do programa editor de tex- 
tos e as explica^oes sobre o uso das fun- 
goes de edi?ao em cada m^quina. Em- 
bora OS procedimentos sejam muito pa- 
recidos, controles especificos e algumas 
caracteristicas variam. 

Apos digitar as linhas aqui apresen- 
tadas, voce ji podera usar todas as f un- 
does de edigao do programa. Mas 
lembre-se de que s6 serd posstvel impri- 
mir o texto criado depois da ultima par- 
te, que daremos no proximo arugo.^ 

Como voce veri. as op^oes de edi(;ao 
oferecidas pelo programa sao liteis em 
varies niveis. O mais simples consiste na 
corre?ao dos erros de grafia. fi faciUmo 
elimina-los: basta colocar sua."caneta 
eieironica", o cursor > sobre a palavra er- 
rada e inscrir ou apagar as letras que 
quiser. 

Se a ortografia nao t um problema 
para voce, mas sim a composigao do 
texto, este programa se revelard ideal. 
Ao escrever algo importante, como uma 
solicitatjao de emprego ou uma explica- 
gao ao gerente sobre um problema em 
sua conta bancaria, voce ja nao preci- 
sard gastar uma pilha de folhas de pa- 
pel, riscando e reescrevendo ate encon- 
trar o termo mais precise, ou a forma 
mais adequada. 

Va direlo ao compuiador e econo- 
mize papel e paciencia. 

Comece digitando um rascunho do 
texto e, depois, melhore-o. Analise o 
que ja escreveu "passeando" pelo tex- 
to, do inicio ao fim, quantas vezes jul- 
gar necessario. Quando decidir fazer al- 
guma modificagao, corrija, apague ou 
introduza o que quiser. Trabalhe a von- 
tade, ate que o texto Ihe agrade. 

Uma outra possibilidade que o pro- 
grama Ihe oferece 6 a de armazenar o 
texto elaborado, para usa-lo em outra 
oponunidade ou, apenas, para saber 
mais tarde o que escreveu. 

Os recursos disponiveis neste progra- 
ma sao semelhantes, embora muito mais 
simples, aos dos mais modernos proces- 
sadores de texto usados, porexemplo, para 
produzir o que voce esta lendo agora. 
Quem ja viu como tudo isso era feito ha 
pouco tempo (e ainda 6, em alguns luga- 
res) nao terd dti vidas a respeito das vanta- 
5J6 gens de utilizar um programa editor. 




O programa do Spectrum foi elabo- 
rado para uso com um gravador casse- 
te. Se voce tem um Microdrive, faga as 
modificagoes necessdrias. 

As fun^oes de edigao sao quase iden- 
ticas as do BASIC e, portanto, nao e ne- 
cessario um editor especial. Todas as en- 
tradas de texto, bem como as alterafoes, 
devem ser feitas na parte inferior da te- 
la, a area de trabalho, ficando a parte 
superior para a visualizafao do que ja 
foi escrito. 



Durante a edi?ao de linhas na ^rea de 
trabalho, pressione <CAPS SHirT> 
e 5 para mover o cursor para a esquer- 
da e <CAPS SHIFT > e 8 para move- 
lo para a direita. Quando ele estiver na 
posi^ao adequada, digits os caracteres 
necessaries. Para apagar, coSoque o cur- 
sor k direita do caractere e pressione 
< CAPS SHIFT > eO. 

Para transferir o texto para a mem6- 
ria e para a irea superior, tecle < EN- 
TER > . Linhas com mais de 64 carac- 
teres irao automat icaraente para a me- 
moria, visto que a area de trabalho su- 
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CORREQAO D£ ERROS 
ORTOGRAFICOS 



COMPOS IC AO 



DO RASCUNHO AQ TEXTQ FINAL 
ANALISE SEM PRESSA 



ARMAZENAGEM DO TEXTO 



AJUSTE 00 TAMANHO 



E ACERTO DOS PARAGRAFOS 



AS funcOes DE edicao 



EM CADA MAQUINA 




porta no mdximo duas linhas de texto. 
Mas elas permanecerao juntas para efei- 
to de impressao, a nao ser que se usem 
comandos de formatagao. 

As teclas de cursor para cima e para 
babco sao usadas para localizar linhas do 
texto na memoria. O marcador fica 
abaixo da linha de interesse, na area de 
visualizagao do texto. Esta linha pode 
ser copiada para a area de trabaiho 
usando-se a fun<;ao EDIT habitual — 
pressione < SHIFT > e 1, Para apagar 
a linha, pressione <CAPS SHIFT > e 
9, deixando o mode editor e, em segui- 



da, <CAPS SHIFT > e < SYMBOL 
SHIFT > simultaneamente. 

Para ler todo o texto da memoria, use 
as teclas de cursor para cima e para bai- 
xo ou < CAPS SHIFT > e 6 e < CAPS 
SHIFT > e 7. Estas teclas moverao o 
texto para cima ou para baixo, uma li- 
nha de cada vez. 

1000 REM impnine a tela 

1005 PLOT 0.13; DRAW 255,0: PLO 

T 0.14: DRAW 255,0 

1010 PRINT AT 0,0; r FOR n=p-10 

TO p+8 

1020 IF n<l OB n>200 THEN PHIN 

T a$: GOTO 1050 

1025 IF n-p THEN PRINT 

1330 PRINT tS(n} 

1040 POKE 22526+320,120 

1050 NEXT n 

1060 RETURN 

2000 REM entrada 

2010 LET iS-"": LET 3$-"' 

2015 PRINT li;AT 0.0:1$; FLASH 

1; BRIGHT li" "; FLASH 0; BRIGH 

T " i S ' " " 

2020 PAUSE 0: LET aS=INKEYS: IF 

3$="" THEN GOTO 2020 
2025 SOUND .01,20 
20 30 IF a$<CHR$ 32 THEN GOSUB 
250Q 

2040 IF aS>CHRS 31 AND aS-CGHRS 
123 THEN LET iS-l$+a3 
2042 IF aS = CHRS 13 AND b»=ext-6 
THEN PRINT #1 ; AT , ; 3$ i sS ; FL 
ASH 1;"AHQUIV0 LOTADO" : SOUND 2 
.10- RETURN 

2045 IF aS=CHB$ 13 OR LEN l$+LE 
N jS-64 THEN PRINT 11; AT 0.0 ;a 
S;aS;B3: LET i$=iS+J$: GOTO 210 

2050 IF a$=CHH$ 14 THEN RETURN 



2052 IF a 
Introduza 
INE zS; I 
2 

2053 IF a 
: GOSUB e 

2054 IF a 



S=CHH$ 6 THEN INPUT " 

palavra procurada", L 

F 2$="" THEN GOTO 205 

$=CHR$ 6 THEN LET p-4 

000 

$=CHBS 4 THEN GOSUB 8 



000 
2055 
500 
2060 
2100 
50 

2105 
2110 
2120 
2130 
LET 



IF a$=CHR$ 5 THEN GOSUB 8 

GOTO 2015 

IF LEN i$>32 THEN GOTO 21 

FOR n-b+1 TO p STEP -1 

LET t$(n+l)=t$(n) 

NEXT n 

LET t$(n+l)-l$: LET p'=p+l: 

b=b+l 



2140 GOSUB 1000: GOSUB 2500; CO 

TO 2000 

2150 FOR n-b+1 TO p STEP -1 

2160 LET tS (n+2)=tS (n) : LET tS{ 

n+3)-t$(n+l) 

2170 NEXT n 

2180 LET tS(n+l]-iS( TO 32): LE 

T t$<n+2>-i5(33 TO }; LET p-p+2 

: LET b-b+2 

2190 GOTO 2140 

2200 LET p-p-1: FOR n"P TO b+1 

2210 LET tS{n)=tS{ri+l) 

2220 NEXT n 

2225 LET b=b-l 

2230 GOSUB 1000 

2240 RETURN 

2500 REM codigoa de control* 

2520 IF aS-CHRS 10 AND p<b-2 TH 

EN LET p-p*l: GOSUB 1000 

2530 IF aS-CHB$ 11 AND p>t+3 TH 

EN LET p=p-] : GOSUB 1000 

2540 IF a3=CHB$ 12 AND LEN l3>0 

THEN LET i$=i$( TO LEN i$-l) 
2550 IF aS=CHR3 8 AND LEN iS>0 
THEN LET j$-i$(LEN i$)+jS: LET 

lS=lS( TO LEN vS-1) 
2560 IF aS-CHR5 9 AND LEN jS>0 
THEN LET i$=i$+j$(l): LET jS"J 
3(2 TO ) 

2570 IF aSOCHRS 7 THEN GOTO 2 
580 
2572 LET j$-t5(p-l>: LET iS-": 

PRINT ♦1;AT 0.0:aS;a$ 
2575 IF j$(LEN jS)-CHRS 32 THEN 
LET jS=33C TO LEN jS-1): IF L 
EN jS>0 THEN GOTO 2575 
2580 IF a$-CHRS 15 AND pM THEN 

GOSUB 2200 
2690 RETURN 
3000 HEM cores 

3010 PRINT AT 10 . 4 ; "Selecione c 
or de fundo (0-7)" 
3020 PAUSE 0: LET aS = INKElf$i IF 

aS<"0- OH aS>"7" THEN GOTO 30 
20 

3030 PAPER VAL aS ; BORDER VAL a 
3 ; CLS : RETURN 

D 

Em geral, o texto e exibido na tela (e 
eventualmente impresso) em letras maiiis- 
culas. Miniisculas podem ser usadas te- 
clando <: SHIFT >0. Natela.aparecerao 
como caracteres invertidos (fundo escu- 
ro, caractere claro). 

Os controles de edicao seguem as di- 
retrizes anteriormente mencionadas. E- 
dita-se o texto na area de trabaiho ,_lo- 
calizada na parte inferior da tela. A par- 
te superior e utilizada para mostrar o 
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texto que ji estd na raemoria. As teclas 
de controle do cursor tern um papel im- 
portante na edigao. As teclas <-*> e 
<»-> permitem que voce mova o cur- 
sor peio texto na area de trabaiho. Se 
voce pressionar < SHIFT > juntamen- 
te com <*->, cursor pulara para o 
inicio ou fim da linha. 

Para inserir caracteres em um ponto 
da linha na area de trabaiho, coloque o 
cursor ^ direita do local escolhido e te- 
cie o que desejar. Nao se pode sobrepor 
caracteres. Para eliminar erros, coloque 
cursor sobre o caractere e tecle a seta 
para baixo. 

Para ativar o modo editor, tecle a se- 
ta para cima. O cursor vai para a ulti- 
ma posigao acessada, indicada por um 
sinal > piscando. 

No modo editor, pode-se inspecionar 
o texto da memoria, rolando-o para ci- 
ma e para baixo com as setas respecli- 
vas. Avanijos (ou retrocessos maiores) 
sao possiveis com as tecias U e D, que 
pulam de 10 em 10 linhas. 

Se quiser apagar linhas de texto, po- 
sicione o marcador logo abaixo da linha 
e pressione < SHIFT > e seta para bai- 
xo, ao mesmo tempo. Linhas em bian- 
co podem ser inseridas a partir da area 
de trabaiho, pressionando-se < EN- 
TER > quando ela esti vazia. 

Para copiar uma linha da memdria 
para a area de trabaiho, coloque o mar- 
cador logo abaixo dela e pressione C 
(dentro do modo editor). A linha mo- 
dificada nao substitui a original, deven- 
do esta ser apagada depois. Volta-se do 
modo editor para a irea de trabaiho 
teclandose < ENTER >. < CLEAR > 
retorna da area de trabaiho para o me- 
nu de edifao. 

25O0 PM-5:rF CP<5 THEN PM-CP 
2510 TBS"INKEYS:IF TBS-"" THEN 
paiNT ePM*32,-": PRINT #PM*32,"> 
":GOT0 2510 

2520 CP-CP+CTBS-""")- tTB$-CHRSC 
10) ) +10* ( (TB$-'''U" ) - CTB$-"D-) ) 
2530 IF CP<1 THEN CP-1 
2540 IF CP>TL THEN CP-TL 
25S0 GOSUB 209D 

2560 IF TB$-CHR5{13] THEN RETUH 
N 

2570 IF CP>1 AND TBS-CHRS(91) T 
HEN TL-TL-1:F0R K-(CP-l) TO TL : 
TX$(K}-TXS CK + 1) :NEXT:TXS (TL+1>» 
"" :CP-CP-1:G0SUB 2090 
2580 IF CP>1 AND TBS-'C" THEN F 
OR K»32 TO 1 STEP -1:IF MIDS (TX 
S(CP-1>,K,1)--" THEN NEXT ELSE 
AS-LEFTS [TXS(CP-l) ,K> +" " :ftETURN 
2590 IF TBa-'P" GOSUB 5070 
2600 IF TBS-"©' THEN SF-SF+1:IF 
SF-1 THEN SS-CP ELSE SE-CP:SF- 
0: GOSUB 5130 
2610 GOTO 2600 

30 00 RETURN 'LINHA TEMPORARIA 
5S8 4000 CLSiIF TL-1 THEN PRINT «7, 



-nada para guardar'FOR Z-1 TO 1 

000 : NEXT: RETURN 

4010 CLSrLINEINPUT" NOME DO ARQ 

UIVO?" !F$ 

4020 IF LEFTS(FS,1}<"A" OR LEFT 

S(FS.1)>"Z" THEN 4010 

4030 IF TS=1 THEN 4120 

4040 CLS:MOTORON: AUDIO ON: PRINT 

"POSICIONE TAPE E PRESSIONE 

<ENTER>" 
4050 IF INKEY$<>CHH$[13) THEN 4 

050 ELSE MOTOROFF: AUDIO OFFrPRI 

NT'POSICIONE GRAWADOR EM 'HEC 

' E PRESSIONE CENTER>" 

4060 IF INKEVS<>CHR$C13) THEN 4 

060 

4070 MOTOHONiFOH K-1 TO lOOOrNE 

XT;OPEN"0'' , l-l-FS 

40B0 PRINT #-I,CP,TL 

4090 FOR K=l TO TL-lrPRINT »-l, 

TX$(K) iNEXT 

4100 CLOSE #-1 

4110 RETURN 

4120 CLS:PRINT"CERTIFIQUE-SE DE 

OUE DRIVE ESTA LIGADO E O 

DISCO INSERIDO. PRESSIONE <ENT 
EB>PAHA CONTINUAE" 
4130 IF INKEYS<>CHRS(13) THEN 4 
130 ELSE F$ = FS + '*/DAT" 
4140 OPEN "O", II. FS 
4150 WRITE |1,CP,TL 
4160 FOR K=l TO TL-1 
4170 WHITE fl,TX$(K} 
4180 NEXT:CLOSE #1: RETURN 
4500 CLS:PRINT 68 .BLS ; "carregar 
"sBLSi'iJiti" ;BLS;"arquivo";BL$:lF 

TL=1 THEN 4540 
4510 PRINT "VOCE TEN CERTEZA (S 
/N}?" 

4520 RS-INKEY$:IF RSO'S" AND R 
SO'N' THEN 4520 
4530 IF RS-'N" THEN RETURN 
4540 CLS:LINEINPUT"NOME DO AHQU 
IVO: "jFS 

4550 IF LEFTSCFS.DC "A" OR LEF 
TS(FS.1)>"Z" THEN 4540 
4560 IF DL=1 THEN 4646 
4570 MOT0R0N:AUDI0ON:PRINT"POSI 
CIONE TAPE EM 'PLAY' E PRE 
SSIONE <ENTER>" 

4580 IF INKEVS<>CHHS(13) THEN 4 
580 

4590 OPEN '•I'',|-1,FS 
4600 INPUT #-I,CP,TL 
4610 FOR K-1 TO TL-1: INPUT #-1, 
TXS(K) :NEXT 

4620 CLOSE |-1:G0SUB 2090 
4630 TXS tTLJ=STHING$(32,126) 
4640 RETURN 
4645 FS = F$ + "/DAT'' 
4650 OPEN "I", tl, F3:INPUT 11. 
CP TL 

4660 FOR K-1 TO TL-1 ; INPUT #1,T 
XS(K) 

4670 NEXT;CL0SE |1:RETUHN 
5000 CLSiPRINT §9 , BL$; "aelecao" 

iBLSi"e":CHRS{124) ; "a" ;BLS: PRIN 
t e96,"CARHEGAR DE (F)ITA OU (D 

) ISCO?": 

6010 BS-INKEYS:IF BSOT" AND 
BSO'D" THEN 5010 

6020 PRINT B3:DL-0:IF BS-"D" TH 

EN DL-1 



6030 PRINT :PRINT"GRAWAR EM (F) I 

TA OU CD) ISCO?"; 

5040 BS-INKEYS:IF BSO-F" AND B 

SO'D- THEN 5040 

5050 PRINT BS:TS=0:1F BS-"D" TH 

EN TS=1 

S060 RETURN 

5070 RETURN 'LINHA TEMPORARIA 

513 RETURN 'LINHA TEMPORARIA 

6500 CLS:PRINT ©3 . BLS ; "preparac 

ao" iBLSi'da" ;BLSi "impressora" ;B 

LS 

5510 PRINT §128, ; :INPUT"LARGUHA 
DO FORMULARI0";My:MW-INT(MW) :I 
F MWCl THEN 5510 

5520 INPUT "COMPHIMENTO DE LINH 
A"iTW:TW'-INT<TW) :IF TW<1 OR TW> 
MW THEN 5520 

5530 INPUT "COMPHIMENTO DO FORMU 
LAHIO" ;PL:PL=INT(PL) :IF PL<1 TH 
EN 5530 

5540 INPUT"LINHAS POR PAGINA";T 
H:TH-INT(TB) :IF TH<1 OR TK>PL T 
HEN 5530 
5550 GP"INT{ (MW-TW)/2) :LF$»STH1 

NGS(INT( {PL-THJ/2) ,13) 
5560 PRINT: PRINT: PRINT" CONFIRM 
A (S/N)?" 

5570 RS-1NKEVS:IF HSO'N" AND R 
S<>"S" THEN 5670 

5580 IF RS-'E" THEN RETURN ELSE 
5500 
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Os editores para o MSX e o Apple se- 
guem, em linhas gerais, o que ja foi di- 
to. t importante prestar atencao quan- 
do .se usam miniisculas, pois as respos- 
las requeridas peio computador so sao 
aceitas em maiusculas. Por outro lado, 
dentro do editor, podem-se usar sem 
probiemas os sinais de pontuapao e 
acentua^ao (esta, no caso do MSX). 

Trabalha-se o texto na area situada na 
parte inferior da tela. Quando se entra 
nesta ^rea, o cursor e visivel no come<;o 
na linha. A partir dai, escreve-se normal- 
mente. As setas para a direita e para a 
esquerda movimentam o cursor nas res- 
pectivas dire^oes. Pode-se acelerar sua 
movimentafao por meio de <CTRL> 
<A> e <CTRL> < S > . A pressao si- 
multanea dessas teclas coloca o cursor 
na primeira e ultima posi^ao da linha, 
respectivamente. Para inserir um carac- 
tere, leve o cursor para a posifao ime- 
diatamcnte a direita de onde fara a in- 
ser^ao e digite o caractere. Nao e possi- 
vel sobrepor caracteres. Para apagar al- 
go errado, coloque o cursor sobre o ca- 
ractere e digite < CTRL > <D>. 

Para ativar o modo editor, pressione 
<CTRL> <E>. O marcador do texto 
come^ara a piscar, Teclando < CTRL > 
<0> e <CTRL> <Z>, voce podera 
inspecionar o texto todo. Esses comandos 
fazem com que o marcador (e o texto) ro- 
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lem para cima ou para baixo. <CTRL> 
<W> e <CTRL> <X> provocam sai- 
tos maiores (de 10 linhas). 

Para apagar linhas de texto, estando 
no modo editor, pressiona-se <CTRL> 
< L > . A linha logo acima do marcador 
ser^ apagada. 

Quando quiser transferir uma linha 



de memorla para a area de trabalho, te- 
cle < CTRL > < C > , com o marcador 
embaixo da linha desejada. A linha apa- 
recera na area de trabalho e podera ser 
editada imediatamente. Note que, ao te- 
clar < RETURN > para devolve-la pa- 
ra a memoria, ela nao substituira a ori- 
gjna!, ^ necessario apaga-la. 




Linhas em branco podem ser criadas 
simplesmente teclando-se < RETURN > , 
com a area de trabalho vazia. 

O programa para o Apple armazena 

e grava dados somente em disco. Ja o 

programa para o MSX trabalha apenas 

com gravador cassete, Nao estranhe se 

a leitura de dados no Apple for moro- 

sa. Para nao haver problema com os si- 

naisdepontuacao.eneces- 

sario que os caracteres se- 

jam lidos um de cada vez, 

Se voce quiser mais vefoci- 

dade, nao se importando 

com a pontuafio, elimine 

o lai;o das linhas 4600 e 

4610 e deixe apenas a rns- 

trugao INPUT TXS (K). 



2500 PM=9:IF CP<9 THEN PM=CP 

2510 TB$=TNKE3fS ! IF TB3 = ""THEN L 

OCATE 0,PM:PH1MTCHB$(219) ; iPHIN 

TCHRSte) ;CHRS(175J ; :GOrO 2510 

2520 CP=CP+ tTBS=CHRS(17))- (TBS= 

CHRStZG) J+10«((TBS-CHR$(23) )-(T 

B$=CHRS<24)) > 

2530 IF CP<1 THEN CP^l 

2540 IF CP>TL THEN CP-TL 

2550 GOSUB 2080 

2560 IF TBS=CHHS(27) THEN RETU8 

N 

2570 IF CP>1 AND TB3=CHR$<12) T 

HEN TL=TL-l:rOR K=CP-1 TO TL : TX 

S(K)=TX5(K+l) : NEXT: TXS CTL+U="" 

:CP^CP-1:G0SUB 2090 

2580 IF CP>1 AND TBS=CHRS(3) TH 

EN AS=TXS (CP-l) +" ":HETUtlN 

2590 IF TBS=CHR$(]6) THEN GOSUB 

5000 
260(} IF TB$ = CHB$tl5) THEN SF'SF 
+l:rF SF=1 THEN SS=CP ELSE SE-C 
P:SF=0:GOSUB 5060 
26i0 GOTO 2500 

3000 RETURN 'LINHA TEMPORAHTA 
40nO CLS:BL$=''Gravar na fita'iG 
OSUB 220 :TF TL=i THEN BEEPrLOCA 
TE 12,11: PRINT "Nada a gravar!": 
FOB 2=1 TO 1000 :N£Xt: RETURN 
4010 LOCATE 4 ,4 : LINEINPUT"*Noilie 
do artjuivo? " ;FS 

4020 IF LEFTS [FS.1)<"A" OH LEFT 
S (FS, 1) >"Z*'THEH 4010 
4030 LOCATE 1 , 6 : PRINT'Posicione 

A fita e presaione <RETllRN>'' 
4040 IF lNKEyS<>CHRS(13) THEN 1 
040 ELSE PRINT : PRINT-Deixe o gr 
avador pronto para iniciar g 
ravscao e presaione <RETlfRN>" 
4050 IF INKEY$<>CHHS(13) THEN 4 
050 

4060 OPEN FS FOR OUTPUT AS |1 
4070 PRINTil .CP.TL 
40a0 FOB K=l TO TL-1 : PRINTI I , TX 
3 (K) :NEXT 
4090 CLOSE tJ 
4 LOO RETURN 

4500 CLS TBLS="Carregar da fita" 
:GOSUB 220: IF TL"1 THEN 4540' 
4510 LOCATE 1 2 , 12 : PRINT"Conf i rm 
e (S/N) "i 
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4520 B3-INKEy3:IF BS="" THEN 45 

ZO 

4530 IF BSO'S" THEN RETURN ELS 

E TL»1:G0T0 450D 

4540 LOCATE 4 , 4 ; LINEINPUT'Nome 

do arquivo? " ; F5 

4550 IF LEFTS (FS,1)<"A" OR LEFT 

S (FS, 1) >''Z' THEN 4540 

4560 PHINT:PBINTiPEllNTTAB (2) ; "P 

oaicione a fita e tecle <RETURN 

>- 

4570 IF INKEY$<>CHRS(13)THEN457 



4580 PBINT: PRINT'Deixe o oravfld 

or pronto para leitura e tecl 

e <BETURN>" 

4590 IF INKEY$<>CHB$(13)THEN459 



4600 OPEN FS FOB INPUT AS ♦! 

4610 INPUT ti.CP.TL 

4620 FOB K=l TO TL-1 ; LINEINPUT 

♦l.TXSCK) :NEXT 

4630 CLOSE «1: RETURN 

5600 CLS:BLS-"Conf igura impresa 

ora":GOSUB 220 

5510 LOCATE , 5 : PBINT"Con£i gura 

gao atual : " 

5520 PflINT : PRINT: PRINT" Largiira 

da Imha: ";MW;" rol" 

5530 PHINT"Largura do texto: "; 

TW;" col" 

5540 PHINT:PBINT"Coinpr imento da 

pag. : " i PL i " linhaa" 
5550 PBINT"Conipr imento do texLo 
: " ;TH; " 1 mhaa" 

5560 PRINT:PRTNT:PRlNT"Quer alt 
erar? " ; 

5570 RS-INKEY$:IF RS="" THEN 55 
70 

5590 IF RS<>"S" THEN RETURN 
5590 CLS:GOSUB 220: LOCATE 0,8 
5600 INPUT-'Largura da linha ";M 
U 

5610 MW-INTCMW) :IF MU<1 THEN 56 
00 

5620 INPUT"Largura do texto "jT 
U 

5630 TW«INT(TW) : IF TW<1 OR TW>M 
U THEN 5620 
564 PRINT: INPUT"CoBiprinien(;o da 

pag. ";PL 
5650 PL=INT(PL) :IF PL<1 THEN 56 
40 
5660 INPUT'Compr imento do texto 

■*;TH 
5670 TH-INT(TH) :IF TH<1 OH TH>P 
L THEN 5660 

5680 GP=INT( {MW-TU)/2) :LF-INTC( 
PL-TH)/Z) :LF$-STRTNG5{LF,13) 
5690 GOTO 5500 



TBS 



2560 IF 

RETURN 
2570 IF CP > 

(12) THEN TL 

CP - 1 TO TL 
1) : NEXT 

CP - ] : 



CHHS (27) THEN 



:BL$ 



'GRAVAR" : COS 



1 AND TBS = CHBS 
= TL - 1 : FOH K = 
TXS(K) - TXStK + 

:.TXS(TL + 1) = "":€? = 

GOSUB 2090 



2580 IF CP > 1 

(3) THEN AS = 
> + " " : RETURN 
2590 IF TBS = 

GOSUB 5200 
2600 IF TBS = 
SF = SP + 1 : IF 
= CP: GOTO 2620 
2610 IF TBS = 
SE = CP:SF - 0: 
2620 GOTO 2500 
3000 RETURN 
RARIA 



AND TBS = CHR5 
' " + TXS (CP - 1 

CHRS (16) THEN 



m 



2500 PM - 9: IF CP < 9 THEN PM 

= CP 

2510 HTAB 1- VTAB PM + 1 : PBIN 

T *>": CHRS (8);: GET TBS 

2520 CP = CP + (TBS = CHRS (26 

}) - (TBS = CHRS (17)) + 10 * 

((TBS = CHRS (24)) - (TBS - C 

HRS (23)}) 

2530 IF CP < 1 THEN CP = 1 

2540 IF CP > TL THEN CP = TL 

2550 GOSUB 2090 



CHRS 
SF = 

CHRS 
GOSUB 



(15) THEN 
1 THEN SS 

(15) THEN 
5300 



4000 HOME 

UB 250 

4010 IF TL - 1 THEN PRINT CH 

RS (7);: HTAB 13: VTAB 12: PHIN 

T "NADA A GRAVAR!": FOR Z = 1 T 

2000: NEXT : RETURN 

4020 HTAB 5: VTAB 5: PRINT "NO 

ME DO ARQUIVO? (MAX 20 CARACT) " 

: INPUT "->";FS 

4030 1/ ASC (FS) < 65 OH ASC 

(FS) > 90 THEN 4000 
4040 FS - LEFTS (FS. 
$ + ".TXT- 

'OPEN' 



,20) :FS 



REM LINHA TEMPO 



4050 

1;",D' 

4060 

4070 

4080 

4090 

4100 



PRINT DS 
:S2 

PRINT DS 
PRINT DS 
PRINT D$ 
PRINT CP 
FOB K =■ 



|FS;".S"!S 



"DELETE" :FS 
"OPEN" ;FS 
"WRITE" ;FS 

PRINT TL 

TO TL - 1 : PRIN 
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)S 


T TXStK) ■ NEXT 


5020 VTAB 8: PRINT "CONFIGURAC 


5060 GET RS; IF RS < > "S" AN 




4110 PRINT DS; "CLOSE-: RETURN 


AO ATUAL : " 


D RS < > "N- THEN 5060 


:h 


4500 HOME :BLS = "CARREGAH" : G 


5030 PRINT : PRINT TAB ( 5) "CA 


5070 IF R$ - "N" THEN RETURN 


N 


OSUB 250 


RREGA DE ": PRINT TAB { 10) "SLO 


5080 HTAB 1: VTAB 8: CALL - 9 


T 


4510 HTAB 5: VTAB 5: PRINT "TE 


) THEN NEXT : GOTO 4620 


58: PRINT "CABHEGA DE " 




CLE [CR] P*,RA RETORNAR AO MENU" 


4610 TXStK) = TXS{K) + BS : GOTO 


5090 VTAB 10 r CALL - B68 : INP 


.0 , 


: HTAB 5: PRINT "NOME DO ARQUIV 


4600 


UT -SLOT? ":L1 


0?": INPUT "->"!FS 


4620 PRINT CHRS (1): PRINT D5 


5100 IF LI < 1 OR LI > 7 THEN 




4520 IF F$ •= "" THEN RETURN 


; "CLOSE" : RETURN 


5090 


c 


4530 IF ASC (FS) < 65 OR ASC 


5000 HOME :BLS - "CONFIGURA E/ 


5110 VTAB 11: CALL - 868: INP 


i 


(FS) > 90 THEN 4500 


S" : GOSUB 250 


UT "DRIVE? ":L2 


F 


4540 F$ = FS + "-TXT" 


T ";L1: PRINT TAB ( 10) "DRIVE " 


5120 IF L2 < > 1 AND L2 < > 




4550 PRINT D$; "OPEN"; FS;",S"; L 


;L2 


2 THEN 5110 


s 


1;",D"|L2 


5040 PRINT : PRINT : PRINT TA 


5130 VTAB 14: PRINT "GRAVA EM" 




* 4560 PRINT DSi"READ":FS 


B( 5)"GHAVA EM "; PRINT TAB ( 1 


5140 VTAB 16: CALL - B68 : INP 




4570 INPUT CP.TL 


0)"SLOT ";S1: PRINT TAB ( 10) "D 


UT "SLOT? -;S1 




4580 FOR K = 1 TO TL - 1 


RIUE ";S2 


5150 IF SI < 1 OR SI > 7 THEN 




4590 TXS(K) = "" 


5050 PRINT : PRINT : PRINT "QU 


5140 




4600 GET B$: IF B$ = CHR5 (13 


ER ALTERAR? "; 


5160 VTAB 17: CALL - 868: INP 




LINHA TEMPO 



REM LINHA TEMPO 



UT "DRIVE? '!S2 

5170 IF S2 < > 1 AND S2 < 

2 THEN 5160 

5180 GOTO 5020 

5200 RETURN : REM 

RARIA 

5300 RETURN 

RARIA 

5500 HOME :BL$ - "CONFIGURA IM 

PRESSORA": GOSUB 250 

5510 VTAB 5: PRINT "CONFIGURAC 

AO ATUAL:" 

5520 PRINT : PRINT : PRINT "LA 

RGUHA DA LINHA: "sMU;- COL . " 

55 30 PRINT -LARGURA DO TEXTO: 

";TW;" COL." 

5540 PRINT : PRINT "COMPRIMENT 

DA PAG. : -;PL;" LINHAS" 

5550 PRINT "COMPRIMENTO DO TEX 

TO: "iTH;" LINHAS" 



5560 PRINT : 
ER ALTERAR? " 
5570 GET R$: 
< > "N" 
IF RS ' 
HTAB 1 : 



PRINT : PRINT "QU 



IF RS < > 

THEN 5570 

"N" THEN RETURN 

VTAB 5: CALL - 9 

INPUT "LARGURA DA 

CMW) : IF MW < 1 

'LARGURA DO 

IF TW < 1 



INPUT "COMPRIMEN 
TH 

IF TH < 1 

/ 2) : 
TH) / 



•S" AN 
D RS 
5560 
5590 
58 
660 VTAB 8: 

LINHA? ";MW 
5610 MW - INT 
THEN 5600 
5620 VTAB 9: INPUT 

TEXTO? -;TU 
5630 TW » INT (TW) : 
OR TW > MW THEN 56 ZO 
5640 VTAB 11: INPUT "COMPRIMEN 
TO DA PAG. ? ";PL 
5650 PL - INT (PL) ; IF PL < 1 
THEN 5640 
5660 VTAB 12 
TO DO TEXTO? 
5670 TH - INT (TH) 
OH I'H > fL IHtN SbftU 
5680 GP = INT ((MW - TW) 
LFS = -"rLF - INT ((PL - 

2) 
5690 IF LF = THEN 5500 
5700 FOR 2 - 1 TO LF:LFS 

+ CHRS (13) : NEXT 
5710 GOTO 5500 
10030 PRINT CHRS 
10040 PRINT CHRS 
1006O LIST 5200 - 
10070 PRINT CHRS 



LFS 



(4) 
(9) 



PRIi* 
31N- 



(4) ;"PR#0- 
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Nosso programa de simula^ao e muito 
semelhante aos utilizados para treinar 
piiotos em voo por instrumentos. 
A segao apresentada neste artigo 
desenha a cabine de comando. 



Em materia de jogos para computa- 
dor, variedade e o que nao falta: voce 
pode escolher desde a pura fantasia, in- 
do se aventurar num mundo imagin^io, 
ate a simula^ao de situapoes da vida 
real. Este ultimo tipo de programa per- 
mtte que tesiemos nossa habilidade em 
enfrentar toda sorte de perigo sem que 
com isto corramos risco de vida ou de 
perda material. 

Programas de simulai;ao de voo, es- 
pecificamente, tern uma aplicaijao pra- 
tica muito importame: companhias ae- 
reas e escolas de aviagao fazem uso de- 
les no treinamento de seus piiotos, Po- 
rem, nao falta a tais programas urn to- 
que de fantasia: sozinho na cabine de 
comando, toda a tripulaijao acometida 
por uma doen?a misteriosa, voce ater- 
rissa o aviao em seguranpa, usando ape- 
nas uma das maos. 



PROGRAMAS DE TREIMAMENTO 



Para treinar piiotos de verdade, 
empregam-se simiiladores totals ou "fa- 
se 3", no jargao de avia(;ao. Estes simu- 
ladores, muito sofisticados, permitem 
que o usuario experimente todas as sen- 
saQoes de um piloto em situagao real de 
voo, Ele podera ver o que o piloto ve 
de sua cabine, tera a impressao de ater- 
rissar, decoiar e enfrentar turbuiencia e 
ouvira os sons de um voo auientico, in- 
clusive OS comandos do controle de tra- 
fego aereo, Teoricamente, um piloto po- 
de completar seu treinamento em um si- 
mulador desse lipo, sem jamais ter sai- 
do do chao. 



SIMULADOfiES OE MESA 



Os programas de simula?ao de voo 
em microcomputadores sao, a exemplo 
do nosso, bem menos complexes, mas 
mostram-se tambem muito liteis para o 
desenvolvimento dos reflexos do piloto. 

Os simuladores de mesa sao essen- 
cJais para o ensino de voo por instru- 
mentos, um artifi'cio que permite ao pi- 
loto dirigir o aparelho baseado apenas 
nos instrumentos do painel — o que po- 
de ser necessario no caso de m4s condi- 
95es de tempo. 



QUE FAZ NOSSO StMULADOR 



Nosso programa sera apresentado em 
tres partes. Ele supoe que o piloto assu- 
miu comando a 2.000 metres de al- 
titude e a 20,000 metros do centro da 
pista, Pela janela, pode avistar o ho- 
rizonte (quando hd visibiiidade) e um 
ponto distante, que e a cabeceira da 
pista. Do mesmo modo que um pifolo 
experiente, voce devera usar o racio- 
ci'nio para tomar decisoes corretas — 
baseando-se nos instrumentos do painel 
— e trazer seus passageiros ao solo 
com seguran^a. 



OS tMSTRUMENTOS 



O painel tern quatro mostradores, O 
primeiro informa a velocidade do ven- 
to {airspeed). Esta varia con forme este- 
jamos mergulhando (a velocidade au- 
menta), subindo (diminui) ou mudando 
a potencia do motor. Um contador lo- 
go abaixo do de velocidade indica a in- 
clinagao do vento (bearing). 

Um segundo mostrador revela o ni- 
vel do horizonte era relaijao ao aeropla- 
no, Por meio dele, mesmo sem visibiii- 
dade, saberemos onde o horizonte esta. 
O contador logo abaixo aponta a dire- 
gao da pista de pouso {runway). 

O terceiro mostrador e um altimetro 
com dois ponteiros: um para cemenas 
e outro para milhares de metros, O con- 
tador abaixo calcula o desvio do apare- 
lho do centro da pista {drift). Co mo ela 
lem 100 metros de largura, um desvio 
de -t- 50 ou -50 ao aterrissarmos sera fa- 
tal. O ultimo mostrador indica as rota- 
goes do motor por minuto (rpm). O con- 
tador abaixo fornece a distancia do cen- 
tro da pista. 



ATERRISSAGEM 



No TRS-Color, a imagem que vemos 
da cabine torna-.se mais clara a medida 
que nos aproximamos do solo, Ao con- 
tririo dos outros micros, onde o piloto 
precisa se orientar pelos dados do pai- 
nel, no TRS-Color pode-se observer a 
pista, Quando assumimos o controle, a 



pista estd ao norte e as condigoes de tem- 
po sao boas. Aterrissar nestas condifoes 
e facil, e o jogo perderia toda a graga 
se nao houvesse outras situagoes. Para 
criar dificuldade, podemos mudar a ve- 
locidade do vento: uma rajada lateral, 
por exemplo, dificulla muito a ater- 
rissagem. 



CONTROLE DO AVIAO 



O nivel do controle que teraos no si- 
mulador e o mesmo de que dispoe um 
piloto em condigoes reals — embora seja 
necessario pressionar botoes em vez de 
usar um manche. 
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QU E E SIMULA CAP DEVOO 

PROGRAMAS 

DE TREINAMENTQ 

APRENDENDO A ATERRISSAR 

VOO POR INSTRUMENTOS 



PAINEL DO AVIAO 



COMO CRIAR A SENSACAO 



DE MOVIMEMTO 



UMA ESCOLA DE 



PILOTAGEM EM CASA 



Em um aviso, o manche 6 puxado ou 
empurrado, movendo os estabilizadores 
dacauda para cima ou para baixo, con- 
forme estejamos querendo subir ou des- 
cer. Usaremos duas teclas para obter tal 
efeito. A se^ao do programa que cuida 
disso sera apresentada no terceiro arti- 
go da serie. 

Para virar o aeroplano, o manche de- 
ve ser movido lateralmente, o que acio- 
na OS ailerons da asa. Tambem usare- 
mos leclas para virar o aviao. 

Dois outros controles nos permitirao 
acelerar ou retardar o motor, o que e es- 
sencial para realizar a aterrissagem de 
maneira correta ou evitar que o apare- 
Iho mergulhe. 



VELOCIDADE MINIMA 



Os avioes nao conseguem voar abai- 
xo de uma certa velocidade. Em nosso 
programa, se a velocidade cair abaixo 
de 30 metros por segundo, o aviao mer- 
gulhara, enirando em parafuso. Se es- 
tivermos a uma certa altitude, havera 
tempo suficiente para evitar um desas- 
tre fatal, mas o perigo e imtneme. 



A DIVISAO DO PROGRAMA 



Dividimos o programa em tres par- 
tes por ele ser muito longo e complexo. 



Na primeira parte, preparamos a te- 
la, desenhando o interior da cabine de 
comando, com o para-brisa e os quatro 
mostradores e contadores. As legendas 
dos contadores e mostradores estao em 
ingles, como nos avioes reais. 

Os comandos BASIC da iistagem ja 
sao nossos conhecidos. Os usuarios do 
TRS-Color, contudo, encontrarao um 
novo comando; PCOPY, Este e especi- 
fico desla linha de micros e, mais tar- 
de, sera explicado em detalhes. 

Na segunda parte do programa, toma- 
mos OS instrumentos do painel sensiveis 
aos movimentos do aviao. Uma seipao 
temporaria fara com que o aparelho voe 
ao acaso, sem piloto, para que possamos 
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ver OS instrumentos functonando. 

A parte final permitira que voce as- 
suiua comando e teste suas habilida- 
des na aterrissagem do aviao. 



A CABINE DE COMANDO 



Para desenhar os instrumentos, digite 
a primeira parte do programa. 



1 POKE 23658.8 

110 GOTO 5000 
50OO LET PP--1: LET RR=-1 
5010 LET C-PI/180: LET PY — 2000 
: LET PZ-2000: LET AS=150 
5110 PLOT 10,175: DHAW 235,0: D 
RAW 0,-90: DRAW -235,0: DRAW 0, 
90 

5120 FOR K-0 TO 3: CIRCLE 35+K* 
60,50,20: NEXT K 
5130 PRINT AT 12, 2; "SPEED HOR 
ZN ALT RPM" 

5150 PRINT AT 20 , ; "BEARING RU 
NWAY DRIFT' DISTANCE" 
5170 PLOT 87,50: DRAW 5,0: DRAW 

3.-3: DRAW 3,3: DRAW 5,0 
5180 LET X-35: LET Y-50: GOSUB 
7000: LET X-155: GOSUB 7000: LE 
T X-21S: GOSUB 7000 
6900 STOP 
7000 FOB K-0 TO 2*PI STEP PI/5: 

PLOT X+17*SIN K,Y+17*C0S K: DR 
AW 2*SIN K,2*C0S K: NEXT K: BET 
URN 

O POKE da linha 1 irava o compu- 
tador em ietras maiiisculas. As linhas 
5000 e 5010 posicionam o aviao no ceu: 
a 2.000 metros de altitude e a 20.000 me- 
tres da pista, parado no ar. As linhas 
que movimentam o aparelho serao apre- 
sentadas no proximo artigo. 

A linha 5110 desenha a janela do 
aviao, e a 5120, usando um lai;o 
FOR... NEXT, OS mostradores abaixo 
dela. As linhas 5130 e 5150 imprimem 
OS rotulos para os mostradores. A linha 
5170 desenha um diagrama de aviao no 
mostrador de horizonte — o horizonte 
artificial nao sera tragado por enquan- 
to. A linha 5180 e a sub-rotina 7000 cal- 
culam as posigoes dos niimeros dos mos- 
tradores: velocidade do vento, altitude 
e rpm. As funfoes SIN e COS sSo usa- 
das conforme explicafoes dadas no ar- 
tigo da pagina 334. 

Quando vocS executar o programa, 
o interior da cabine aparecera na tela. 



10 SCREEN 2,2:COLOR 15,4,2 
20 FOR I-O TO 7*32*8 
30 VPOKE BASE(ll)+13«32«8+I,8 
40 NEXT 
110 GOTO 5000 
5W 4000 OPEN "GHP:" FOR OUTPUT AS 



11 ; PRESET {X, Y) : PRINT ♦1,AS 

4010 CLOSE |1:RETURN 

5000 PP — ItRR— 1 

5010 PI-4«ATN(1) :C-PI/ieO:PY — 2 

0000 : PZ-2000 : W-150 

5110 LINE(10,0)-(245,80) ,2,B 

5120 FOR K-0 TO 3 ; CIRCLE (35+K*6 

0,128) .25,2:NEXT 

5130 PAINT<255.191) ,2 

5140 X"35:Y-128:GOSUB 7000:X-1S 

5 -GOSUB 7000;X-215:GOSUB 7000 

5150 COLOR 1 :X-6: Y-88:A$-"AIRSP 

EED-:GOSUB 4000 :X-78 :A$--HORIZ" 

: GOSUB 4000 

5160 X-126:AS-"ALTITUDE":GOSUB 

4000:X-204;A$-"RPM":GOSUB 4000 

5170 COLOR 15:X-9:Y-160:A$--BEA 

RING": GOSUB 4000:X-74:A3-'RUNWA 

Y" : GOSUB 4000 

5180 X=138:AS="DRIFT":GOSUB 400 

0:X-188:A3="DISTANCE" :GOSUB 400 



5190 DRAW "BM81,126C10H9F5ESH9" 

5500 GOTO 5500 

7000 FOR K-0 TO 9 : LINE tX+21*SIN 

(K-PI/5) ,Y-21*COS(K*PI/5))-tX+l 

9*SIN{K*PI/5) ,Y-19*COS(K«PI/5)) 

, 2 :NEXT: RETURN 

A linha 10 seleciona a tela e suas co- 
res. O FOR... NEXT das trSs linhas se- 
guintes muda a cor de fundo de parte 
da tela para vermelho medio — COLOR 
8. Assim, o fundo colorido dos mostra- 
dores nao sofrerd a interferencia de co- 
mandos grdficos do BASIC que, em ge- 
ral, s6 atuam na cor de f rente. 

A linha 1 10 transfere o programa pa- 
ra a linha 5000, que estabelece os valo- 
res iniciais de algumas varidveis. Junta- 
mente com a linha 5010, ela posiciona 
o aviao no ceu: a 20.000 metros do cen- 
tre da pista e a 2.000 metros de altitu- 
de, parado no ar. As linhas que movi- 
mentam o aparelho serao apresentadas 
no pr6ximo artigo. 

A linha 5110 desenha a janela fron- 
tal do aviao, e a linha 5120, os circulos 
dos moslradores. A 5130 colore todo o 
interior da cabine. A cor usada nessas 
trSs linhas deve ser a mesma. As linhas 
5140 e 5180 rotulam os mostradores e 
contadores do painel. Para escrever na 
tela grifica 6 utilizada a sub-rotina da 
linha 4000. Esta abre um "arquivo" 
com saida para a tela grdfica — OPEN 
"GRP:" — e imprime o conteiido da 
variavel alfanumerica A$, a partir das 
coordenadas X,Y. 

A Unha 5190 desenha um aeroplano 
esquemitico no mostrador de horizon- 
te. As marcas nos mostradores sao de- 
senhadas pela sub-rotina 7000. 

Executando o programa agora; o in- 
terior da cabine aparecera na tela. 



2*8+64*8-1: READ B: POK 

E I,B: NEXT 

100 DATA 0.0,0,0,0,0,0,0 

110 DATA 8.8,8.8,0.0,9,0 

120 DATA 18,19,16,0,0,0,0.0 

130 DATA 18,18,63.18,63,18.18 

.0 

140 DATA 8 ,60 ,10 ,28 ,40 ,3 

,8 ,0 

150 DATA 38.38.16,8,4,50.50,0 

160 DATA 12.18,18,12,82,34,92 

.0 

170 DATA 24,16,8,0,0,0.0,0 

180 DATA 32,16,8,8,8,16,32,0 

190 DATA 2,4,8,8.8,4,2,0 

200 DATA 0,8,42,28,28.42,8,0 

210 DATA 0,8.8,62,8.8,0,0 

220 DATA 0,0.0,0,0,24,16,8 

230 DATA 0,0,0,62,0,0,0,0 

240 DATA 0,0,0.0,0,24,24.0 

250 DATA 64,32.16,8,4,2.1,0 

260 DATA 28,34.38,42,50.34,28 

.0 

270 DATA 16.24.20,16.16.16.56 

,0 

280 DATA 28.34.32,24,4,2.62, 



290 DATA 28,34,32,24,32,34,28 

,0 

300 DATA 16,24,20.18,62.16.16 

.0 

310 DATA 62,2,2,30,32,34.28.0 



\S\\^ 



10 HGR2- rE = 35840 :T - 16384 
20 FOR I-E+32*eT0E+3 
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320 



330 

340 

.0 

350 

,0 

360 

370 

380 

390 

400 

410 

420 



430 



440 

,0 

450 

460 

,0 

470 

4S0 

490 



500 

.0 

510 

520 

.0 

530 



DATA 28,34,2,30,34,34,28, 

DATA 62,32,32,16,8.6,8.0 

DATA 28,34,34,28,34,34,28 

DATA 28,34,34,60,32,34,28 

DATA 0,24,24.0,0,24,24.0 

DATA 0,24.24,0,0,24,16,8 

DATA 32.16,8.4,8.16,32,0 

DATA 0,0,0,62,0,62,0,0 

DATA 4,8,16,32,16,8,4.0 

DATA 28,34,32,16.8,8.0,8 

DATA 28.34.56,42.58,2,60, 

DATA 8,20,34,34,62,34,34, 

DATA 30,34,34.30.34,34,30 

DATA 26,34,2,2,2,34,28,0 

DATA 30,34,34,34,34,34,30 

DATA 62,2,2,62,2,2.62,0 

DATA 62,2.2.30,2.2.2,0 

DATA 28,34,2.58,34.34,28, 

DATA 34,34,34,62.34,34.34 

DATA 24.8.8.8.8.8,28,0 

DATA 56,16.16.16,19,18,28 

DATA 34,18.10.6,10.18.34. 




540 


DATA 


2.2,2.2,2.2,62.0 


550 

.0 

560 

,0 

570 

.0 

580 


DATA 


65.99.85,73,65,65,65 


DATA 


34,38.42,42.50.34,34 


DATA 


28,34,34,34.34,34,28 


DATA 


30,34,34, 30,2,2,2.0 


590 


DATA 


28,34.34.34,42,50,60 


.64 






600 

,0 

610 


DATA 


30,34.34,30,18.34,34 


DATA 


60,2.2,28.32,32,30,0 


620 


DATA 


62,8,8,8,8,8,8,0 


630 

,0 

640 



650 

.0 

660 



670 


DATA 


34,34,34,34,34.34,28 


DATA 


34,34,34,34,34,20,8, 


DATA 


65,65,65,73,85.99,65 


DATA 


34,34.20.8,20.34.34, 


DATA 


34,34.34,20,8,8.8,0 


680 


DATA 


62.32.16,8.4,2.62,0 


690 


DATA 


60.4,4.4.4,4,60,0 


700 


DATA 


1.2,4.0,16,32.64.0 


710 

,0 

720 


DATA 


30.16,16.16.16, 16.30 


DATA 


8,20.34,0,0,0.0.0 


730 


DATA 


0.0.0.0,0,0.62.0 


740 


GOTO 


5000 



4000 K - L ■ 40 + C 

4010 FOR J - 1 TO LEN (A3) 

4020 BS ■* MIDS (AS.J.l) 

4030 B - ASC (BS) 

4040 L " INT (N / 40) :C - N - 

40 * L 

4050 FOR I - TO ? 

4060 POKE T + (L - 8 « (L > 7) 

- B * CL > 15)) * 128 + 40 * t 
L > 7) + 40 « a > 15) + C + 10 
24 * I. PEEK (E + B * e + I) 
4070 NEXT I:N - N + 1: NEXT J 
4080 RETURN 
5000 PP - - 1:RB - - 1 
5010 PI - 4 « ATN (11 :C - PI / 

laOiCl - PI / 10:P5f - - 20000 
:PZ - 2000: AS - 150 
5110 HGR2 : HCOLOR- 6: HPLOT 1 
0.0 TO 276.0 TO 276.80 TO 10,80 

TO 10.0 
5120 HCOLOR- 3: FOR K - TO 3 
: HPLOT 71 + K " 66,134: FOR I 
- TO 10 STEP PI / 10: HPLOT 
TO 42 + K « 68 + 30 * COS CCl 
+ I * PI / 5) .134 + 26 * SIN ( 
CI + I * PI / 5) : NEXT I.K 
5130 C - 2:L - 12:A$ - "AIBSPEE 
D": GOSUB 4000 :C - 12: AS - "HOR 
I20N-: GOSUB 4000 
5140 C = 22: AS - "ALTITUDE": GO 
SUB 4000 :C - 33:A$ - 'BPM" : COS 
UB 4000 
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5150 C = 2;L = 2 
" : GOSUB 4000 :C 
AY*: GOSUB 4000 
5160 C - 23:A$ = 

4000'C = 31:AS 
OSUfi 4000 
5170 HCOLOH' 5r 
104, 134 TO 109 

TO 134,134 
5180 HCOLOH= 3: 
: IF K = 1 THEN 
5190 FOR I - 
+ K * 68 + Z8 * 
PI / 5) .134 + 24 

* PI / 5) TO 42 
■ COS (CI + I * 
22 * SIN (CI + 
XT I.K 



1:AS = "BEAfllNG 
= 13:A$ = "RUNW 

"DRIFT": GOSUB 
- "DISTANCE" : G 

HPLOT 05,134 T 
,144 TO 114,134 

FOR K - TO 3 
NEXT K 

TO 9r HPLOT 42 
COS (CI + r * 
* SIN (CI + I 
+ K * 68 + 26 
PI / 5) ,134 + 

I « PI / 5) : NE 



\s\ 



Os usuarios do TK-20CI0, alem de nac 
copiarem as linhas de 10 a 4080, devem 
fazer as seguintes modifica^oes no 
programa. 

740 GOTO 5000 

40 00 HTAB C + ll WTAB t, + 1 : P 
RINT AS 
4010 RETURN 
5L00 MP 

5120 HCOLOB- 3: FOB K ■ TO 3 
:XX = 71 + K * 68:¥Y - 134: FOR 
I - TO 10 STEP PI / 10:X •= 4 
2 + K * 68 + 30 * COS (01 + I 
* PI / 5) :Y - 134 + 26 * SIN { 
CI + I * PI / 5) : HPLOT XX. Y? T 
X,y:XX " X:Ylf - V: NEXT I,K 

As linhas Iniciais criam um banco de 
blocos no topo da membria, para que 
o Apple possa escrever na tela. Essas li- 
nhas ja foram apresentadas em artigo 
anterior, quando explicamos o uso de 
blocos graficos: pode ser, portanto, que 
voce nao precise digits-las novaraente. 
O TK-2000 pode escrever na tela grafi- 
ca sem esse artificio; assim, seus usua- 
rios devem comepar a digitagao a partir 
da iinha 5000. 

Como vamos utilizar a pSgina 2, ar- 
mazenamos o banco de blocos em ou- 
tra area da membria, devidamente reser- 
vada por meio de HIMEM:. 

A sub-rotina que comefa na linha 
4000, responsive! pela in^pressao de pa- 
lavras na tela grifica, i essencialmente 
a mesma publicada em artigo anterior, 
s6 que com outro niimero de linhas. Os 
usuarios do TK-2000 dispoem de uma 
versao bem mais simples dessa sub- 
rotina. Na realidade, ela poderia ser dis- 
pensada neste micro; resolvemos 
introduzi-la aqui para que os programas 
do Apple e do TK-20O0 nao ficassem 
muito diferentes. 

As linhas 5000 e 5010 posicionam o 
aviao no ceu: a 20.000 metros do cen- 
tro da pista e a 2,000 metres de altitu- 
de, parado no ar. As linhas que movi- 



mentam o aparelho serao apresentadas 
no proximo artigo. 

A linha 5110 desenha o para-brisa do 
aviao. No TK-2000 hi um conrsando MP 
,para ativar a segunda pagina de video; 
no Apple, isso e feito por HGR2. Note 
que o programs do TK-2000 deve cen- 
ter HGR2 tambem, para permitir o uso 
das linhas inferiores da tela. 

A linha 5120, um pouco diferente pa- 
ra OS dois micros, desenha os circulos 
dos mostradores. As linhas 5 130 a 5 160 
rotulam os mostradores e contadores do 
painel em ingles, como nos avioes reals, 
A 5170 traga o diagrama de um aeropla- 
no no mostrador de horizonte. As mar- 
cas nos mostradores sio feitas pelas li- 
nhas 5180 e 5190. 

Ao ser executado, o programa dese- 
nhara o interior da cabine de nosso apa- 
relho imaginirio. 



10 PCLEAR 8:PM0DE 4,1 
20 DIM LESC26) 

30' FOR K-0 TO 26:READ LE$(K>:N£ 
XT 

40 FOB K-0 TO 9 : READ NU3(K):NEX 
T 

50 DATA BH2.ND4H3D2NL3ND2BE2,ND 
4H3DGNL2FDNL3BtJ4BH2,NR3D4H3BU4B 
E2 ,ND4H2FD2GL2BE4BR . NR3D2NR2D2R 
33U4BR2 

60 DATA NR3D2NH2D2BE4BH,NH3D4R3 
U2LBE2BR, D4BR3U2NL3U2BH2 ,ND4Ba2 
, BD4REU3L2R3BR2 , D2ND2NF2E2BH2 
7 DATA D4H3BU4afl2,ND4FHEND4BR2 
, ND4F3DU4BR2 , NR3D4H3U4BR2 . ND4R3 
D2NL3BE2,NR3D4R3NHU4BR2 
80 DATA ND4R3D2L2F2BU4Bfl2,BD4R3 
U2L3U2R3BR2,HND4RBR2,D4R2tJ4BR2. 
D3FEU3Ba2,D4EFU4BB2 
90 DATA DF2DBL2UE2UBR2,DFND2EUB 
R2.R3G3DR3BU4BR2 
100 DATA NR2D4H2U4BR2,BDEND4BR2 
, R2D2L2D2a2BU4BR2 . NH2BD2NR2BD2R 
2U4BR2,D2R2D2U4BR2,NR2D2fi2D2L2B 
E4 , D4H2U2L2BE2BR2 . H2ND4BR2 ,NR2D 
4R2U2NL2U2BR2 , NH2D2R2D2U4BH2 
110 GOTO 5000 
4000 FOR K=l TO LEN(AS) 
4010 B$=MIDS{AS,K,1) 
4020 IF B3>-"0' AND BSC="9" THE 
N DRAW NU$(UAL(BS)) :GOTO 4050 
4030 IF BS=" " THEN N=0 ELSE N- 
ASC(BS)-64 
4040 DRAW LES(N} 
4050 NEXT : RETURN 
5000 PP — 1:RH--1 

5010 PI-4*ATN(1) :C-PI/180:Py— 2 
0000:PZ-2OOO:VV-150 
5110 PCLS:LINEtlO,0)-(245,eO) ,P 
SET.B 

5120 FOR K-O TO 3 : CIRCLE t35+K*6 
0.120) ,25,5:NEXT 

5130 DRAW "Bhl8,8BS4" :AS-"AIRSP 
EED":GOSUB 4000:DRAW "BMSO.ea": 
AS-'HORIZON'cGOSUB 4000 
5140 DRAW "BM140,S8' :AS-"ALTrTU 
DE";GOSUB 4O00:DRAW"BM2Oe,88":A 



S-"aPM":GOSUB 4000 

5150 DRAW "BMie,l60" :AS-*BEAHIN 

G"; GOSUB 4000 : DRAW''BM32 . 152" i A$ 

-'RUNWAY" : GOSUB 4000 ; DRAW"BM80. 

160" :AS-"BEARING" rGOSUB 4000 

5160 DRAW-BM144. 160" :AS-"DHIFT" 

rGOSUB 4000 :DHAW''BM200. 160" rAS- 

- DISTANCE": GOSUB 4000 

617 DRAW" BM8 1 , 1 ieH9F5E5R9- 

5180 X-35iy-120:GOSUB 7000:X-15 

5:G0SUB 7000 :X'215 :GOSUB 7000 

5190 PCOPY 3 TO 5:PC0Py 3 TO 7 : 

PCOPY 4 TO 6: PCOPY 4 TO 8: SCREE 

N 1,1 

5500 GOTO 5500 

7000 FOR K-O TO 9 : LINE CX+24*SIN 

(K*PI/5) .Y-24*COS(K*PI/5})-tX+2 

l*SIN(K*PI/5) ,Y-21*COS{K*PI/5)) 

.PSET: NEXT: RETURN 

A primeira parte do simulador inclul 
um comando ainda nao utilizado em IN- 
PUT: PCOPY, que assegura a movi- 
menta^ao suave tia imagem na tela. 

As linhas 20 a 110 preparam as ma- 
trizes que nao contem os blocos grafi- 
cos necessdrios ao desenho da cabine. A 
sub-rotina das linhas 40O0 e 4050 impri- 
me OS graficos na tela. 

As linhas 5000 e 5010 posicionam o 
apareiho no c^u: a 20.000 metros do 
centro da pista e a 2.000 metros de alti- 
tude, parado no ar. As linhas que mo- 
vimentam o aparelho serao apresenta- 
das no prdximo artigo. 

A linha 5110 desenha o pira-brisa, 
5120 desenha os circulos dos mostrado- 
res, e as linhas 5130 a 5160 rotulam os 
mesmos — em ingISs, como nos avioes 
reals. A linha 5170 coloca o diagrama 
de um aviao no mostrador de horizon- 
te. As marcas nos mostradores sao de- 
senhadas peia linha 5180 e pela sub- 
rotina da linha 7000, 

Os comandos PCOPY na hnha 5190 
desenham grificos em paginas ainda in- 
visiveis e depois copiam-nos na tela. As- 
sim, auxiliam a preservar os desenhos do 
fundo, que sao atualizados antes de se- 
rem transferidos para a tela, de modo 
que o lapso de tempo entre um quadro 
e outro seja minimo. Isso significa que, 
quando o aeroplane esta em movimen- 
to, OS mostradores sao alterados de 
acordo, simultaneamente. Sem PCOPY, 
apenas um mostrador poderia ser atua- 
lizado de cada vez. 

Ao executar esta set;ao do programa, 
interior da cabine aparecera desenha- 
do na tela. 

No proximo artigo, apresentaremos 
as linhas que fEizem o aviao voar, em- 
bora ainda sem controle. Ele vagara pe- 
los ceus, mergulhando e subindo ao aca- 
so. Voce poder^ controli-lo quando 
concluir o programa, no terceiro e ulti- 
mo artigo, Finalmente, a vida dos pas- 
sageiros estara em suas maos. 



AMPUE O BASiC 
DOT^-COLOR 



PLANEJAMENTO DAS 



NOVAS INSTRUCOES 



QUE E UM STUB 



NOVOS COMANDOS NO MICRO 



RECUPERACAO DE PROGRAMAS 



BASIC do TRS-Color nao e intocavel. 
Pode-se modificci-lo para incluir novos 
comandos, o que e util sobretudo quando 
micro executa tarefas que empregam 
certas rotinas repetidas vezes. 



O BASIC e apenas um programa em 
linguagem de maquina funcionando em 
seu microcomputador. Ainda que as ins- 
tru^;6es executadas estejam codificadas 
na memdria ROM, no TRS-Color 6 pos- 
sivel fazer algumas modificagoes para 
criar novos comandos. 



£sta possibilidade revela-se basianie 
litil nos casos em que usamos o compu- 
tador para realizar uma tarefa especifi- 
ca que emprcga determinadas rotinas re- 
petidas vezes, Neste artigo, criaremos 
duas novas insirupoes destinadas ao mi- 
cro TRS-Color. 
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A rotina INVERT ((amb^m 4^1lanulcta de 
INVERSE em oulrtu microcoroputadores) 
liga (odos OS pixels ds tela que estavam 
desljgados e desliga todos u<! que estavam 
llgjdoit. .4!>siin, tudu <)iie estava represetitado 
HI cor de um grupo tssume a car 
correspondente ao DUiro grupo. 







"ViiiiiliiAnl 
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A rotina que se segue acrescenta dois 
comando'^ aO BASIC do TRS-Color: 
OLD, que permite a reciiperaijao de um 
programa apagado acidenialmente com 
NEW, e INVERT, que troca o grupo de 
quatro cores que estiver sendo, iitiliza- 
do na tela gra£ica, "^^ 






r 



10 
20 

40 

to 

IP 

|o 


110 

120 
130 
140 
150 
l^t 
170 
180 
190 
200 
210 

'30 
240 
250 
260 
270 
260 
290 
300 
310 
^20 

'340 
350 
360 
370 
380 
390 


420 
430 
1440 
450 
.60 

e 


4?0 
500 
510 
520 
530 
540 
550 
560 
S70 



1^ 



IJM* 



ORG 31OO0 
SETUP LDX 
LDU #308 
STONE LDA 
STA ,U+ 
CMPX #308 
BLO STONE 
LDA #2 
STA 298 
LDX #NEWBDS 

399 

♦NEWDSP 

301 

tNEUUSR 

176 

I $8860 

tlO 

STU ,X++ 








STX 

LDX 

STX 

LDX 

STX 

LDU 

LDA 

STTWO 

D£CA 

BNE STTWO 

RTS 

NEWRDS FCB 79,76,196 

FCe 73. 78, a6, 69, €2, 2^ 

NEWDSP CHPA fSCe 

BLO NDONE ., 

CMPA tSDO i 

BHS NDONE V 

SUBA #SCi;?P 

IDX tNEWTB 

JWf 384ED 

NDONE JMP Se9B4 

OLD LDU 25 

PSHS U 

LEAX 4,U 

OLDONE LDA 

BNE OLDONE 

TFR X,D 

SUBD ,S++ 

TSTA 

BEQ OLDTWO 

JKP S9B6D 

OLDTWO STX , U 

OLDTHR TFR X , U 

LDX ,U 

BNE OLDTHSfr. 



»B4 






grama BASIC, € necessario que reser- 
vemos as palavras corre^pondentes. Te- 
mos. assim, que ai:ipliai a lista de pala- 
vras reservadas, bem comijdirigir o BA- 
SIC aos programas em cddigjp que exe- 
cuiam as novas fungSes. ^r 

A posigao das rotinas qu0«l^cutam 
OS comandos BASIC e apontada por de- 
terminados vetores — ou aponfadores 
— que ficam em portoes da memiria 
denominadas stubs, Existem normal- 
ly ^ mente dois stubs, cada um ocupando 
dez bytes da memoria RAM. O segun- 
^ do dele!), por6m, e so um sinallzador de 
^•vj fiaal de tabela, nao tendo outra fun^to. 
"■"■ Quando acrescentamos insiru?6es de- 
vemos criar tambem um. stub que aponte 
para as novas rotinas. Mas, antes dis- 
so, e precise deslncar o stub que indica 
o fim da tabela para uma posifto mais 
alta nsi memoria, criando o espafO ne- 
_ ce.ssario. 

O endere$o inicial do segundo stub e 
8, e as primeiras seis iiistruv'oes do 
rograma aqiii apresentado transferem^ 
para 308. O regfslro X e usado co- 
mo apontador para o stub original, cn- 
quanto o regisiro U aponta para sua no- 
va posiv'ao. Os operandos ,X-i- e ,IJ + 
iiicrementam esses apontadores a cada 
volta do la?o STONE. 

Este programa nao pode icr usado 
em sistemas com disqueie, pois os 
matidos de disco usam o mesmo stu 





c»t 
uffTh 



ADICIONE SEUS PRdPRtOS COMANDOS 
Depots de entender como funcio- 
nam os stubs no reconhecimento dos 
comandos BASIC, o programador po- 
de criar seus prdprics comandos. Quern 
\& tern uma certa experiencia deve co- 
megar pelos comandos sem operan- 
dos, como OS deste artigo. Qualquer ro- 
ting pode se transformar num coman- 
do desse tipo. Basta o BASIC encon- 
trar o novo comando em uma linha de 
programa, e o controle 6 desviado pa- 
ra a rotina em c6digo cujo enderego es- 
t^ no stub. Apds sua execucao, o con- 
trole retorna ao interpretador. 

Comandos que operam sobre nume- 
ros ou variSveis exigem muito do pro- 
gramador. Se OS numeros nao forem In- 
teiros, ele ter^ de conhecer os segre- 
dos da aritm^tica de ponto flutuante e 
dos numeros decimais codificados em 
bindrio. Al^m de um bom conhecimen- 
to de linguagem de maquina, ^ precise 
um profundo domfnio da arquitetura do 
TRS-Color; ao mesmo tempo, deve-se 
saber onde ficam as uariciveis do sis- 
tema, como sSo armazenadas as variS- 
veis e as linhas BASIC, e onde podem 
ser colocados temporariamente os va- 
lores dos operandos. 



h 



CRIACAO DE UM NOVO STUB 



.u 



m^ 



LEAU 2. 

STU 27 

STU 29 

STU 31 

RTS 

INVERT LDA 65314 

EORA #8 

STA 65314 

RTS 

NEWTBL FOB S7964 

FDB $7989 

NEWUSR EQU * 



G QUE E UM STUB 






Para acrescentar comandos ao pjo 



Uma vez garantido o espafo necessa- 
rio na memoria dcaccsso alcatdrioe ter- 
miiiado o lago STONE, pas.samos a cria- 
gao do novo stub. 

O primeiro byte desse novo siub cor- 
responde ao niimero de in.struvoes apon- 
tadas por ele. Portanto. LDA # 2 e STA 
298 colocam o uiimero 2 no primeiro 
byte. 

Os dois proximos bytes trazem o en- 
dere(po da tabela de nomes de comandos. 
Estes nomes aparecem imediatattiente 
ap6s r6tulo NEWRDS, com suas Ic- 
tras codificadas uma a uma em AS6II. 
So nao ocorre o mesmo com a ultima 
lelra da cada palavra, que se distingue 
por ter seu bit mais significativo ativa- 
fc^ do. Assim, D — ultima letra do coman- 
do OLD — i representada pelo seu c6- 
digo ASCII, 68. mais 1 0000000 em bi- 
nario ou 128 em decimal (68+ 128 = 
196). Da mesma maneira, o T de IN- 
VERT sera 212 e nao 84. 

Finatmente , quarto o e o muinto bytes 
trazem o endere9Q inicial das rotinas que 
executam os comandos. Esse endere?o 
e encontrado nos bytes ap6s o r^tulo 
NEWTBL. 



VETORES USR 



O veior que fica nos enderecos 176^ 
e 1 77 ao^aia para as posJ?6es que con-" 
tem o eMef'ego de rotinas USR. Est8<; 
posifoes ficam geralmente logo acima 
do segundo stub, em uma labela qtieoo- 
mega em 308. O segundo ^tub. coniu- 
do, foi empurrado para dentra dessa 
area, para criar espat^o para o novo stub, 
di forma que a drea USR Tambem pre- 
cisa scr rclocada. 

LDX #NKWUSH e STX J 76 colo- 
cam o (Etldcrcvo dorotulo NEWLSR nas 
posifoes 176 e 177. EQIJ *, que lica lo- 
go apos NEWL'SR, no finafedo progra- 
ma, reservaos^roximos kutfls para a ta- 
bela USR. Jt^ ^JtT^ 





O c6digo de maior valor usaa^ pelo 
BASIC e CD, Assim, os c6(i||fe dos 
dois novus comandos serao CE e CF. 

CMPA #$CE e aLO NDO!VE vcn- 

ficam se o codigo da insurufao esta abai- 
xo do vaiordos novos c<5digos. Se"isso 
ocorrer ^$ primeiro stub nio tiver rcj 
onhccido o comando, hoa\^ um 



nm\ 



mm^ 



>*^i> 
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de sintaxe, O microprocessador e, en- 
tao, enviado ao rotulo NDONf) que, 
por sua vez, provoca um salto psra o en- 
dercv'o 89B4 — uniasub-roiiiiada ROM 
que emite uma mcnsagem de crro. 

CM PA #$0 e BHS NDON'E fazem o 
raesmo se o cddigo for major que CF, ou 
seja, sc cle estiver acinia da faixa «^ aue 
ficam OS codigos das novas ins|fu?pls. 

Se codigo pa'isar por esses dois tes- 
tes, fica comprovado que ele correspon- 
de a lim dos novos c5mandos. O pro- 
grama, entSo, segue em frente. CE 6. 
|. subtrSHtJo'do valor do codigo, que esti 
em A. O resultado permanece em A. 

O cndere?o inicial da tabcia de ende- 
reijos dos novos comandos e colotado 
em X. Assim, qtiando o processador vai 
para S4ED — umarotina que cuida do 
rcconhecimento dos varies comandos 
BASIC — , leva consigo os valores con- 
tidos em X e em A^^ a^k- 



A ROTINA DO COMANOO OLD 



Quaiido usamos NEW para apagar 

um programa, os valores de diversas va- 

•i^iaveis do si<!tema modificam-se. Se res- 

y^aurarmos os valores dessas variivds 

T> antes de digitarraos oytro programa ou 

de usarmos um comando PCLEAR, po- 



«■ 




S6 hi uma forma de Q micro aceitar 
instruQSes adicionais? 

Nao. Embora os diversos modelos 
de micro tenham um BASIC semelhan- 
te, o programa que o entende varia 
muito de um para outro: alguns nSo 
tern stubs, e novas instrupoes devem 
ser adicionadas sem estes, 

Podemos chamar de "sistema" o 
programa extstente na ROM que enten- 
de o BASIC. Ele deve ser muito bem or- 
ganizado para poder associar a cada 
comando a rotina em c6digo certa 
(muitas vezes os comandos agem so- 
bre operandos, o que complica ainda 
fnais a tarefa do sistema). Assim, ele 
mant6m diversas tabelas com endere- 
<;os e valores que o orientam na inter- 
pretapao do BASIC, Os stubs nada 
mais sao que tabelas desse tipo. Mas 
existem outras. A principal maneira de 
se adictonar novos comandos ao BA- 
SIC de uma mSquina consiste em alte- 
rar determinados valores nessas tabe- 
las de controte. 



deremos r^x , o programa ailtigo. 
O comando Ntw modificaos dois pri- 
meiros bytes da primeira linha do pro- 
grama que se quer reisapwar. Esses bytes 
indicam o euderefo inicial da linha se- 
guinte. Outras vari^veis do sistema que 
aponiam o final da area do proffama 
BASIC tambem sao modiflc^as. O que 
comando OLD faz e restaurar o vaior 
original de lodos esses apontadores. 

A rotina que cuida disso camera com 
a instru?aa JUJU 25, que coloca o con- 
teudo das posi§6es 25 e 26 no registro 
U. Elas contgm o endereco inicial do 
programa BASIC. PSHS V coloca este 
valor na pilha, para que possamos 
recuperi-io mais larde. 

A instruvao LEAX 4,U cuida do en- 
dere?o do byte 4, contado a partir do 
inkio do BASIC Os dois primeiros 
bytes — e 1 — continham o endere^o 
da proxima liuha. Os dois seguintes — 
2 e 3 — , o riiimero da linha. Asstm, U 
contem agora o primeiro byte <ljt-linha 
propriamente dita. 

LDA ,X + coloca eistc byte no acu- 
mulador e incremenca X. Bl>fE OLDO- 
!NE faz o processador repet|r:pssa ins- 
tru$3oat<^ encontrar um zero, qae sina- 
liza final da linha BASIC. 
- Quando o programa encontra uin ze- 
ro e sal do la^o, X ja foi incrementado 
c aponia para o cnderego inicial da pro- 
.xima linha BASIC. ■ 



VERIFICACAO DE ERROS 



^.^e o comando OLD for acionado 
•^tti que haja um programa BASIC 
aprove!t:ivel na memoria, devemos im- 
pedir que o lixo que porventura esleja 
na area BASIC seja recuperado. Preci- 
samos, assim, de um teste que verifique 
se a primeira linha ainda faz sentido. 

Para fazer isso, o conteudo do apon- 
tador X e colocado cm D e dele subtrai- 
mos ultimo item da pilJia — o endere- 
eo inicial do BASIC — com SUBD 
,S+ + . O resultado indica o compri- 
mento da primeira linha, que permane- 
ce armazenada cm D. O apontador da 
pilha e decrement ado, o que retira o en- 
derego inicial do BASIC da pilha. 

TSTA testa o acumulador A, isto €, 
vei^^ o conteudo do byte mais signi- 
ficatfvode D (os registros A e B juntos 
constiluem o registro D) e estabelece os 
sinalizadores de acordo. BEQ OLD- 
TWO salta as instru(;6es seguintes, se o 
sinalizador zero foi ativado- Se o con- 
teudo de A nao for zero, o registro D 
continha um valor maior que 255 — o 
maior ntimero de bytes que uma linha 
BASIC pode conter, Nesse case, o pro- 
cessador e enviado para a rotina da me- 



m6ria ROM, em 8B8|^fue emite uma 
mensagem de erro. ^_^j " ii 



i 



RESTAURE OS APONTADORES 



Ol|g»stro U aponta parao primeiro 
byte diii primeira linha BASIC. Assim, 
para restaurar o apontador do itiido da 
linha se^nte, colocamos o valor de X 
no endere'gp apontado por U, usando 
STX ,U. 

O passo seguinte e descobrir onde fi- 
ca o fitial da area do programa BASI 
O la<po OLDTHR trata disso. 

Como OS dois primeiros bytes de 
qualquer Linha apontam para o inicio da 
seguintc, e facil saltar de linha em linha, 
transferindo o conteudo de X para U c 
colocando em X o valor contido nas po- 
sifSes apontadas por U, X contem o cn- 
dere^o da proxima linha, que e colcatoiA^ 
em IT. U aponta, entao, para os dc?^^ 
bytes que contem o enderego da linha > 
que fica ainda mais adiante, tste valor^ 
c colocado em X. ^^^ 

O raesmo laco e execuiado rcpetidas 
vezes, ate que se encontre uma linha cu- 
jos dois primeiros bytes sejam 00 00. Es- 
te e o final do programa BASIC. Quan^nJ 
do ele e encontrado, o processador "sai • 
do lafo. 

O enderego que Oca logo acinia des- i 
ses dois liltimos bytes e colocado em U, 
que passa a aponiaif para o inicio da 4rea 
das variaveis. 

STU 27, STU 29, e STU 31 copiam 
esse endere(^o itas variaveis do sistema 
que ficam em 28 e 29, apontando p 
o inicio da irea dQ.^yaTiSveis; em 29 e 
apontando para o Inicio da tabela 
matrizes; e em 3 1 e 32, apontando para 
o topo da RAM usa^^ 

RTS retorna ao BSSIQ^rV 



A ROTINA INVERT 



A posi^ao de memoria FF22 fica na 
memdria de entrada e sai'da — I/O • — 
de perifericos e controla a saida dc da- 
dos grdficos para a tela, O bit 3 dessa 
posifjao determina o grupo de cores que 
est^ sendo utilizado. 

LDA $EF22 coloca o comeiido da- 
quele enderego no acumulador e o bjt^3 
e aJterado pcia Opera^ao Idgica ' 'on ex- 
clusive", entre A e 8 (00001000, em bi- 
nirio). O resultado e recolocado- 
FF22, e RTS volta ao BASIC. 

Essa rotina simplesmente aJiterna ' 
grupos de cores, fazendo com que tudo 
o que estA representado tia cor de um 
grupo assUrrj8:^§ cor correspondente dj 
outro grufW'^de cores. 

O programa nao i recolocSvel. 



>F5 




•Jk 



p 


^^^^ftBi 


»-;->. ^ 


syr^.- 








^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 


^ 


-y 


^ 


h!!<i 


,1 


microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



IIIIHHHNO PROXIMO NUMEROailllllllll 



APLICApdES 

Voc^ j^ domina as fungoes b^sicas de edigSo, Conhega agora 
as rotlnas e sfmbolds mais uteis b preparagao de um texto. 

PROGRAMAgAO BASIC 

interpretador BASIC de seu micro conta com vdrias funpoes 
matemSticas padronizadas. Veja como definir algumas outras. 

PROG RAM AQAO DE JOGOS 

Inicie seu v6o simulado. O aviao ganhou movimento, mas, 
cuidado! Voc§ ainda nao controla o aparelho. 



CURSO 



prMico 



31 



OtP«00»^'^^5 



'PROG 



RAN^<;'^° 



Dt JOGOS 




/ 1 tit .-'"-'J 



, >j>tf 



J (;> 



l:h& 



,t I' y"" 



■t. A... 



i^I : \ ■ '{ - !■ 



